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“Meu Deus! Preciso de 
mais 15 cópias deste 
relatório, e o presidente 
vai começar a reunião 
daqui a 5 minutos!” 


BZZZZ 


PRONTO! 


mim. Daqui a meia hora 
tenho reunião de vendas.” 


BZZZZZ. 

PRONTO! 


“Lembra daquela circular j 
que você bateu o mês 
passado? Preciso de mais | 
5 cópias dela para as 
filiais, já com nossos 
novos endereços!” 4 

BZZZZZ. 

BZZZZZ. 

PRONTO! 


“Quero outro tipo de 
letra. Esta carta, além de 
importante, é muito 
pessoal.” 

BZZZZZ 

BZZZZZ 

PRONTO! 


“Aquelas tabelas têm que 
ser refeitas. A diretoria 
mudou todas as previsões. 
Por favor, rápido!” 


BZZZZZ 

BZZZZZ 

PRONTO! 


“Bata esta carta para a 
diretoria. Com todos os 
acentos e sem erros!!! 


Se você tem ou pretende adquirir um micro para o seu escritório, não deixe de conhecer a Mônica 
da Elebra Informática. Melhor do que qualquer máquina de escrever ela passa para o papel todo o talento 
do seu computador, e você ainda ganha uma secretária mais feliz de presente. 




Mônica. 

A secretária da secretária 
eficiente. 


Mônica. Impressora serial da 
Elebra Informática. 
100 caracteres por segundo/ 
Impressão bidirecional, com 
procura lógica/Caracteres 
comprimidos e expandidos/ 
Capacidade Gráfica/ 
Qualidade Carta /Livre 
escolha de tipos pelo 
usuário/Compatível com a 
maioria dos melhores 
microcomputadores nacionais. 
Imprime em português correto, 
com acentos, cedilhas e tudo. 


*com Tipograf. Opcional na 
EI 6010. 


elebra ■ informática 


Elebra Informática S.A. - Av. Eng? Luís Carlos Berrini, 1461 - Tels.: (011) 531-4844/4889/4975 - CEP 04571 - Telex: (011) 25957 ELIN - BR - São Paulo - SP. 
Av. Rio Branco, 50 - 10? andar - Telefone: (021) 253-5596 - CEP 20.090 - Telex (021) 23481 DOCA - BR - Rio de Janeiro - RJ. 
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EDITORIAL 


Há mais de um ano me vi incumbido de 
estruturar uma revista dedicada a usuários de 
microcomputadores pessoais. 

Como professor (e não jornalista!) senti a 
necessidade de formação e não informação destes 
leitores. Para informação já existia uma série de 
boas revistas no mercado, desde a tradicional e 
excelente MICRO-SISTEMAS, até a inteligente 
BITS, passando pela MICRO-MUNDO, INFO e 
tantas outras. 

Modelos estrangeiros foram consultados e 
abandonados: tivemos a coragem de confiar em 
nossa própria sensibilidade e, ao conceber 
MICROHOBBY, não copiamos ninguém! 
Obviamente aproveitamos idéias e programas 
publicados em outras revistas (aliás é para isto que 
eles são publicados, ou seja, dados ao público) 
sempre que possível citando a fonte e sempre 
adaptando-os e melhorando-os, às vezes tanto que 
os tornamos irreconhecíveis. 

Ao publicarmos livros, demos ênfase ao autor 
nacional, evitando a solução editorialmente pobre 
da tradução fácil e nem sempre bem feita. 

Passamos, obviamente, por uma série de 
dificuldades características de uma empresa nova e 
em rápido crescimento: atrasos, problemas em 
fitas-brinde, problemas com o correio, etc. Mas 
afinal, se a "Lei de Murphy" é Universal, por que 
não haveria de se aplicar a nós também? 

Na parte editorial, porém, sob a minha direta 
responsabilidade, nunca medi esforços para que a 
qualidade das matérias fosse sempre do mais alto 
nível e de máximo aproveitamento para nossos 
leitores. 

Com relação a isso devo admitir que fui 
amplamente recompensado: todas as cartas, 
repito, todas as cartas por nós recebidas, mesmo 
as enviadas para veicular algum tipo de 
reclamação, sempre nos transmitiram elogios e 
estímulo. 

Por isso, ao deixar a direção editorial da 
MICROHOBBY, pressionado entre outras coisas 
por uma série de afazeres que transformaram 
minha vida numa crônica "falta de tempo", saio 
contente e com a sensação de ter feito, entre os 
milhares de assinantes, milhares de amigos. 

Vou me dedicar mais ao Núcleo de Orientação 
de Estudos, onde uma série de projetos em 
desenvolvimento reclamam minha presença: 
a parte didática da informática foi, até agora, 
muito pouco desenvolvida e está a reclamar 
soluções e idéias originais e inteligentes. 

Deixo a Revista e a Editora em boas mãos, 
encerrando este último editorial com uma frase que 
pode ser considerada estereotipada mas expressa 
o que sinto: 

VALEU A PENA! 
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NOTÍCIAS_ 

Microdigital e 
novidades 
para os usuários 
dos TKs 


Com o TK-2000 à frente, a Micro¬ 
digital está lançando no mercado, 
inúmeras novidades para os usuá¬ 
rios não só deste micro mas também 
para os dos outros TKs. A empresa 
está colocando no mercado a ex¬ 
pansão de 48 K para o TK-85; o 
Joystick com movimentação nas 4 
direções, que permite um maior di¬ 
namismo nos jogos; a interface pa¬ 
ralela que permite a ligação dos mi¬ 
cros com as impressoras do padrão 
Centronics, e o gravador de EPROM, 
uma interface que, acoplada ao co¬ 
nector de expansão permite ao usuá¬ 
rio a conversão do TK 83 e 85 em 
uma ferramenta de trabalho. 

Além destas novidades, a Micro¬ 
digital está enviando o manual téc¬ 
nico do TK-2000 a todos os usuários 
que compraram o micro e enviaram 
o cartão de garantia para a empresa. 
Este manual, segundo os diretores 
da empresa possui inúmeras dicas 
de funcionamento do TK-2000; so¬ 
bre o seu software, suas rotinas, 
sobre alta-resolução e sobre o dis- 
sassembler, além de inúmeras ou¬ 
tras informações que orientam o 
usuário da melhor forma possível. 
Os computadores que estão saindo 
da fábrica, já trazem o manual in¬ 
corporado a eles. 


O Apple atuando como 
terminal de um IBM 

A COPEC — Computadores, Programas e 
Comércio S.A. está lançando no mercado 
um pacote de hardware e software que trans¬ 
forma o Apple e seus compatíveis em um ter¬ 
minal inteligente para computadores IBM. 


O Software para o TK-2000 



Dentre as empresas que estão 
oferecendo produtos para serem 
utilizados no TK-2000, a MultiSoft 
talvez seja a que tem a maior quan¬ 
tidade de software disponível. A 
empresa está fornecendo aos usuá¬ 
rios do TK-2000 inúmeras fitas (com 
nova embalagem) que vêm com jo¬ 
gos, utilitários e aplicativos. Do 


software já disponível, a empresa 
tem entre jogos: Sabotagem; Ata¬ 
que; Auto-Estrada; Bombardeio; 
Corrida; EHminator; Fliperama; Mul- 
ti- In va der; Fanico; Papa -Tudo; e 
Pulo do Sapo. 

De utilitários e aplicativos, a em¬ 
presa conta com programas como: 
Mu/ticad; Mu/tiEstoque; Editor e o 
Software-impressora, um programa 
destinado a acionar o hardware de 
impressoras no TK-2000. 

Dentro do software que estará 
disponível para o usuário em greve, 
a MultiSoft irá oferecer programas 
de jogos como: Xadrez; Gamão e 
Poker; Estação Espacial Orbital en¬ 
tre outros. Dentre os aplicativos e 
utilitários destacam-se Contas a Pa¬ 
gar, Maia-Direta e outros. 


O videogame virando microcomputador 


A Milmar que apresentou em 
março passado, o seu microcompu¬ 
tador Apple-Senior, dotado de tecla¬ 
do auxiliar e compatível com os sis¬ 
temas CP/M e Applesoft, lançou 
uma novidade bastante interessan¬ 
te, principalmente para quem pos¬ 
sui videogame: o Dactar Comp. 

0 Dactar-Comp pode ser consi¬ 
derado uma interface de videoga¬ 
me, ou seja, ele é "micro" com te¬ 
clado de 42 teclas com funções pré- 
programadas que, adaptado ao vi¬ 
deogame complementa-o em mais 
de 2 K de RAM e 16 K de ROM. As¬ 



sim, a interface pode compor músi¬ 
cas de até 8 oitavas em 2 canais, fa¬ 
zer figuras e gráficos com capaci¬ 
dade gráfica de até 10 cores dife¬ 
rentes. 


A Andei e o Software/84 


A ANDEI — Associação Nacional 
dos Dirigentes e Executivos de In¬ 
formática está instituindo um prê¬ 
mio denominado "O Melhor Soft¬ 
ware/84". O prêmio é patrocinado 
pela Itautec e tem como objetivo a 
divulgação dos trabalhos projetados 
e implantados, sejam programas ou 
conjunto de programas. 

Os softwares devem permitir uti¬ 
lização em mini computadores, ter 
memória de no máximo 64 kB, dis¬ 


quetes de 8' ou 5 1/4' e impresso¬ 
ras com até 132 posições. 

Para concorrer ao prêmio, a enti¬ 
dade informa que o candidato deve 
enviar até o dia 30/9 para a Rua Ca¬ 
pitão Antonio Rosa, 376 — conj. 
102, os seguintes documentos: lis¬ 
tagem dos programas, relatórios ou 
documentos emitidos e preenche¬ 
rem formulário de inscrição forneci¬ 
do pela ANDEI. 


A Mônica e a Campanha da 

A Elebra, fabricante das impreso- 



ras Mônica e EmíHa lançou em maio 
último, o logotipo-base de toda sua 
campanha institucional: uma ban¬ 
deira nacional estilizada. A bandeira 
transmite a proposta da empresa 
que é a de defender e valorizar a in¬ 
dústria nacional de informática. 

A empresa estará presente no Mi¬ 
cro- Festival/84 do Rio de Janeiro, 
apresentando várias novidades. En¬ 
tre estas, a impressora Mônica com 
o módulo opcional Tipograf, um 


Reserva 

lançamento que enriquece a impres¬ 
sora e permite, por exemplo, a mu¬ 
dança do tipo de caractere durante 
a impressão com apenas um co¬ 
mando: direto do micro para a im¬ 
pressora. Além do módulo a Elebra 
que detém 60% do mercado de im¬ 
pressoras no Brasil, apresentará a 
outra Mônica com carro mais longo 
(15 polegadas) e a Unidade de Disco 
Flexível 5,25" — Horácio — para 
utilização em micros da linha Apple 
eTRS. 
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CARIAS DOS 
LEITORES 



TK 2000 


Gostaria de saber se o TK-2000 
é totalmente compatível com o Ap¬ 
ple e seus compatíveis nacionais e, 
se sim, porque tamanha diferença 
de preço. Além disso, quero saber 
suas opiniões no que toca esta e ou¬ 
tras diferenças entre computadores. 

Sugiro ainda a análise, na se¬ 
ção Fita do Mês, de um programa 
compilador, qual seu princípio bási¬ 
co, etc. . . 

Ricardo Castro — Belém, PA. 


Caro Ricardo 

Tudo o que você quer saber so¬ 
bre o Apple e o TK-2000 foi discu¬ 
tido no artigo TK-2000: um compa¬ 
tível com o Apple ou uma nova 
Máquina?, publicado no nosso nú¬ 
mero 8. Mais informações sobre o 
TK-2000 estarão, agora regularmen¬ 
te, nas páginas de Microhobby. 

Já publicamos, na Microhobby 


número 7, a análise de um progra¬ 
ma compilador comercial, na seção 
Fita do Mês. 

Observação: 

A aula 11 do Curso de BASIC 
sairá na revista 12, 
dando continuidade às lições. 
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Outros computadores 


Anúncios 


Pirataria 


Evoluir é conhecer. Como é 
possível evoluir na ciência da com¬ 
putação conhecendo (mesmo bem) 
somente o TK 85? Lembre-se que, 
no mercado brasileiro, já temos qua¬ 
se uma centena de microcomputa¬ 
dores. 

A intenção do leitor Leonardo 
C, Linhares (Cartas dos Leitores, 
Microhobby 8) em "reunir e aproxi¬ 
mar" é muito louvável, porém creio 
que esta tarefa compete aos clubes 
e não à uma revista. 

Roberto Massaru Watanabe — São 
Paulo, SP. 

Caro Roberto, 

Agradecemos a você a respos¬ 
ta à carta do leitor Leonardo C. Li¬ 
nhares. 

A Microhobby nunca procurou 
fugir a dois propósitos: dar um 
apoio substancial aos possuidores 
de TK e fornecer-lhes subsídios so¬ 
bre computação. Dê uma olhada na 
seção Vice-Versa do número ante¬ 
rior , onde falamos de como o TK 
pode ser aproximado do TRS-80 
mediante o conhecimento das duas 


Como editar desta revista, ape¬ 
sar do preço não justificado pelo 
enorme número de anúncios, gosta¬ 
ria de parabenizá-los pelo ótimo ní¬ 
vel da revista, esperando e torcendo 
por um maior número de progra¬ 
mas em Linguagem de Máquina e 
dicas, os quais julgo de extrema im¬ 
portância para todos os iniciantes 
nesta linguagem. 

Caro Fernando, 

Agradecemos os elogios e crí¬ 
ticas à nossa redação. Entretanto, 
não concordamos que o preço da 
Microhobby seja injustificado. Afi¬ 
nai o que você recebe em nossas 
páginas é sem dúvida muito mais 
valioso do que uma fita contendo 
vários programas. Além disso, não 
achamos o número de anúncios ex¬ 
cessivo. 

Quanto às dicas e aos progra¬ 
mas em Linguagem de Máquina cre¬ 
mos que temos publicado o sufi¬ 
ciente para agradar a maioria dos 
nossos leitores. De qualquer forma, 
na medida do possível, e/es aumen- 


máquinas. 

tarão em número e qualidade. 

PROGRAMAS PARA TK82 - TK83 - TK85 - 
CP200 - RINGO E SIMILARES 

Ouro de Hitler 

Os nazistas abandonaram US$ 5 
milhões em ouro em sua base insu¬ 
lar. Voce procura retirar esse ouro 
enquanto eles minam o braço de 
mar que separa a ilha do conti¬ 
nente. Rotinas em linguagem de 
máquina. 

Força Invasora 

Seu planeta é atacado por uma es¬ 
quadra de naves inimigas protegi¬ 
das por campos de força. Você 
deve destruí-las uma a uma para 
evitara invasão. Totalmente em lin¬ 
guagem de máquina. 

Bomber 

Você é o piloto de um bombardeiro 
num ataque contra uma metrópole 
inimiga e foi atingido. Será que voce 
conseguirá aterrissar sem chocar-se 
contra os edifícios? Totalmente em 
linguagem de máquina. 

UFO 

Você é atacado por um ser extrater¬ 
restre em um disco-voador. Para 
eliminá-lo você deve destruir o 
campo de foiça que o protege e 
defender-se de sua arma de raios 
fotonicos. Totalmente em lingua¬ 
gem de máquina. 

Robot War 

Você foi escolhido para programar o 
robô que defenderá sua galaxia 
numa luta contra KORKO - 0 IN¬ 
VICTO e deve, para derrotá-lo des¬ 
cobrir seu código secreto. Rotinas 
em linguagem de máquina. 

Labirinto il 

Você pode escolher as dimensões 
de um labirinto tridimensional 
dentro do qual você se move em 
busca da saída. Imagens soberbas. 
Totalmente em linguagem de má¬ 
quina. 

Galaxians 

Um grupo de galaxianos hostis foi 
localizado em formação de ataque 
perto da Terra. Sua missão é evitar 
um ataque destruindo-os antes que 
atinjam a Terra Tctalmente em lin¬ 
guagem de máquina. 

Mothership 

A nave mãe inimiga conseguiu pro¬ 
vocar uma falha no campo de força 
em torno de seu planeta, lançando 
por ela uma esquadrilha de naves 
de combate. Você deve defender 
aquele ponto até que o campo seja 
restabelecido. Totalmente em lin¬ 
guagem de máquina. 

Meteors II 

Você deve manter intacta sua nave 
mercante num anel de meteoritos 
estratificado em torno do planeta 
onde voce realiza importantes ne¬ 
gócios. Rotinas em linguagem de 
máquina. 

Ataque Aéreo 

Como piloto de um caça você deve 
treinar seus reflexos praticando tiro 
contra alvos que se movem de 
forma aleatória no espaço. Rotinas 
em linguagem de máquina. 

Asteróids 

Sua nave está se movendo em 
meio a uma nuvem de asteróides 
que você deve destruir para sobre¬ 
viver. 8 direções de tiro. Movimento 
aleatório dos asteróides. Total¬ 
mente em linguagem de máquina. 

TK-Word 

Excelente processador de textos 
que transforma seu micro numa 
"Composer" de baixo custo. Algu¬ 
mas de suas características: repeti¬ 
ção automática para todas as te¬ 
clas; centraiização de linha; mais de 
320 linhas de arquivo; Cursor para 
as quatro direções. Totalmente em 
linguagem de máquina. 


Cada programa é gravado duas vezes no K-7, é lacrado e garantido contra defeito de 
fabricação. 


Atualmente não existe uma le¬ 
gislação a respeito de programas de 
computador. Isso prejudica o pro¬ 
gramador, que vê seus programas 
sendo manipulado por pessoas es¬ 
tranhas e não pode tomar nenhuma 
medida contra. (...) 

Sérgio S. Caixa 
Rio de Janeiro, RJ 


Caro Sérgio, 

Realmente o assunto é contro¬ 
vertido, não sendo este problema 
exclusivamente brasileiro. Existe 
muitas dúvidas entre juristas do 
mundo inteiro em como classificar 
um programa: se como obra intelec¬ 
tual, protegível pelo direito autoral, 
ou como propriedade industrial ("in¬ 
venção tecnológica " — sujeito a pa¬ 
tentes). 

Convém que você leia o artigo 
"Proteção Jurídica de um programa 
de Computador", do advogado 
Eduardo J. Vieira Manso, publica¬ 
do nas revistas Microhobby 5 e 6, 
onde seu autor, especialista em Di¬ 
reito Autoral, discute o assunto. 
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DESGRILANDO 



O Rally e a RAMTOP 


Comprei o programa Rally da Mul- 
tisoft e não entendi o funcionamento. 
Escrevi à esta revista anteriormente e 
minha carta foi enviada ao fabricante. 

De acordo com a resposta da Mul- 
tisoft, o programa Rally é carregado 
em duas etapas. 

Sei, por experiência própria, 
quando é carregado um programa, o 
programa que estiver gravado anterior¬ 
mente será apagado. 

Gostaria que a revista esclareces¬ 
se, não só a mim, o que acontece nes¬ 
te programa. 

( . ) 

Wa/ter Gomes dos Santos 
Rio de Janeiro, RJ 

Caro Walter, 

O programa Rally é composto por 
duas etapas. Na primeira etapa é carre¬ 


gado um programa que altera o valor 
de uma variável do sistema, a RAM¬ 
TOP. Esta variável "conta"ao compu¬ 
tador aonde termina a memória. A pri¬ 
meira etapa do Rally modifica esta va¬ 
riável "enganando" o computador , re¬ 
servando uma área da memória que 
não é afetada pelo comando NEW. 
Nesta área, o primeiro programa se au- 
to-transfere. Uma vez feito isso, este 
programa carrega o próximo programa 
da fita automaticamente, desde que o 
gravador esteja ligado, na posição 
PLAY. 


Alta resolução 
no TK-85 


Desejo saber se há possibilidade 
de se colocar alta resolução no TK-85 
.por software ou outro modo, mas sen¬ 
do acopla.do no interior do computa¬ 


dor e não externamente. 

Agenor Prates Ferreira Neto 
Piracicaba, SP 

Caro Agenor, 

Na área de hardware, sabemos 
que existe uma possibilidade para o 
TK-83, mas que envolve urna alteração 
drástica na distribuição e endereça¬ 
mento da memória RAM interna do 
micro. 


CP-200 e as expansões 
da Microdigital 


Sou usuário do CP-200 e sei que 
este computador é compatível com o 
TK-85 e outros computadores que uti¬ 
lizam a mesma lógica. Tendo isso em 
mente, pergunto: 

1) 0 que devo fazer para usar, no 
CP-200, a impressora do TK? 
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2) Existe meios de fazer com que 
o CP-200 ligue e desligue o gravador 
automaticamente? 

3) É possível usar expansão de 64 
kB do TK 83 no CP 200? 

Edson Antonio Baldo 
Nova Venecia, ES 


Caro Edson, 

Para ligar tanto a impressora co¬ 
mo expansões do TK no CP-200 é ne¬ 
cessário que se use um cabo apropria¬ 
do , uma vez que os pinos da saída pa¬ 
ra expansões do CP-200 são diferentes 
do padrão utilizado no TK. 

Quanto a fazer com que o seu 
computador ligue e desligue o grava¬ 
dor é necessário uma interface espe¬ 
cial ou modificações no seu hardware. 
Para fazer uma destas duas coisas, re¬ 
corra a um técnico especializado. Al¬ 
guns destes técnicos podem ter anun¬ 
ciado na seção Pequenos Anúncios. 
Dê uma olhada e verifique (cuidado 
com os "aventureiros"II. 


Economia de memória x tempo 
de processamento 


Tenho lido em revistas do setor, 
várias formas de economia de memó¬ 
ria, entre os quais se destaca o uso da 
instrução VAL, passando o programa a 
operar com variáveis string em lugar de 
variáveis numéricas. 

Aplicando este princípio em um 
programa que elaborei houve um ga¬ 
nho enorme de bytes disponíveis quan¬ 
do substitui DIM A0500) por DIM A$ 
(1500, 2) e, realmente passei a contar 
com uma área substancialmente maior 
para ampliar o programa. Entretanto, 
parece que houve um efeito colateral: 
o programa que dava o resultado em 
30 segundos no modo FAST passou a 
dar o mesmo resultado em aproxima¬ 
damente um minuto. 

(...) Gostaria de um esclareci¬ 
mento a este respeito e aproveito para 
sugerir um artigo sobre "como aumen¬ 
tar a rapidez de seus programas" (...) 

Paulo Augusto M. Oncken 
São Paulo, SP 

Caro Paulo, 

Normalmente, sempre que ganha¬ 
mos alguma coisa em algum lugar per¬ 
demos outra em outro. É a lei da con¬ 
servação da energia aplicada ms coi¬ 
sas práticas ... No caso do TK, a 
maioria dos "macetes" usados para 
economizar memória correspondem à 
uma perda de tempo. Realmente exis¬ 


tem "macetes" também para economi¬ 
zar tempo de processamento. Sua su¬ 
gestão, neste sentido, é válida e va¬ 
mos estudar o assunto para futuras pu¬ 
blicações. Por enquanto, daremos al¬ 
gumas sugestões: 

1) Trabalhe em FAST sempre que 
possível. 

2) Uma vez que o programa este¬ 
ja em sua forma final, elimine todas as 
Unhas REM com comentários e nume¬ 
re as restantes de 1 em 1 (isso tam¬ 
bém economizará memória). 

3) Evite parênteses desnecessá¬ 
rios e mensagens de PR/NTs muito ex¬ 
tensas (novamente ocorrerá econo¬ 
mia de memória). 

4) Trabalhe diretamente com ins¬ 
truções numéricas, sem recorrer a 
strings e funções VAL (aqui há perda 
de memória). 

5) Sempre que possível, use roti¬ 
nas em Linguagem de Máquina. 


Principiante 


Como assinante desta revista que¬ 
ro elogiá-los, pois ela é ótima para um 
principiante em computação como eu. 

Gostaria também que me respon¬ 
dessem o seguinte: 

1) Quando for a época da renova¬ 
ção da assinatura vocês avisam? 

2) Qual o tempo máximo que um 
TK-85 pode ficar ligado, sem prejudi¬ 
car o seu funcionamento? 

Wander/ey I ta mar Abrão 
Orlandia, SP 

Caro Wanderley, 

Agradecemos seus elogios, acres¬ 
centando que a revista visa dar apoio 
significativo a todos os leitores que 
têm o computador como hobby, quer 
seja principiante quer não. 

Pouco antes de sua assinatura ter¬ 
minar, você receberá um aviso, indi¬ 
cando quando deverá renová-la. 

O TK-85 pode ficar muito tempo 
ligado. Soubemos de casos de pessoas 
que deixaram-no rodando um progra¬ 
ma por mais de 12 horas, sem que hou¬ 
vesse problemas. Todavia, é conve¬ 
niente "dar um tempo", des/igando-o 
de quando em quando, caso não seja 
necessário rodar um programa muito 
extenso, ou no trabalho de digitação. 
Desligá-lo por 10 minutos à cada duas 
horas é um bom critério. Também é 
conveniente, na digitação de um pro¬ 
grama muito extenso, gravar de quan¬ 
do em quando a parte já digitada. É ter¬ 
rivelmente frustrante perder, por qual¬ 
quer motivo, o trabalho já digitado! 

O 


ESGOTO 

Gustavo Egídio de Almeida 


Memória ocupada — 1366 Bytes 
Soma Sintática — 28233 


Você caiu numa Tubulação de 
Esgota Além de ser algo extrema¬ 
mente desagradável, você notará que, 
no meio das águas poluídas, virão ra¬ 
tos ao seu encontro. (Figura 1) 

Você terá que desviar dos ratos 
para somar pontos, usando as teclas: 
1 — Move o símbolo (□) para esquer¬ 
da 

0 — Move o símbolo (D) para direita 
Atenção aos gráficos usados: 
Linhas: 25 — Gráfico H e espaço; 
80 — Gráfico V inverso e * inverso; 
100 — Espaço inverso. 


6 LET DD--=PI/PI 
10 LET 5=PI-PI 
15 LET R-URL "4 
20 FOR B=URL 
£5 PRINT *' & 
NEXT B 

35 LET D=INT 
“ 2 “ 

4-0 FOR G--VRL 
P —DD 

50 LET E = INT 

e 

-i 


1» TO URL '•20“ 

(RNDtURL “5“) f-VflL 

•* 19” TO PI/PI STE 

___ _ (RNDf3) +1 

60 1.» E=2 RND D >2 THEN LET D=D 


63 IF C<=URL "5" THEN LET D=R 
65 LET R=R+ ( INKEYí = "0“ RND R <U 
RL “6") — ( INKEV $ ^ “ 1 “ RND R > URL “2 

70 IF C=URL '• 1“ RND D=R THEN G 
OTO URL “200“ 

60 PRINT RT URL %, 1“,R;“PBRT C 

,D;"E5" _ 

100 PRINT RT URL “ 1“ , Rj “K" ; RT C 

105 NEXT C 

11© LET &=S+PI/PI 

115 PRINT RT PI/PI,URL “G“ ;"PLR 

Qpp - •• - g 

120 IF S >URL “5“ THEN LET DD«UR 

125 IF 5 >URL “10“ THEN LET DD=U 
RL **3" 

130 GOTO URL “35“ 

200 PRINT RT PI-PI,URL “G“;“FIN 
RL" 

220 STOP 


LftCRR =6 


loí. ,-J| 


h 

t 


& 


1 




A 




J 
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Seção Didática 


Esta Seção destina-se a fornecer 
subsídios para a quantidade 
já bastante significativa de professores 
secundários que usam computadores TK 
e compatíveis como recurso 
didático em seus cursos. 




Álvaro Csapo Talavera 

Reversão na Natureza 

As simetrias e as reversões são tão 
comuns na natureza que freqüente- 
mente não as percebemos, tão profun¬ 
damente envolvidos que estamos por 
elas. Por exemplo, nosso próprio cor¬ 
po, ao menos na sua forma externa, se 
apresenta revertido em relação a um 
plano vertical, de tal forma que o nosso 
lado esquerdo é, muito aproximada¬ 
mente, a imagem num espelho plano 
do nosso lado direito e vice-versa. 

Este fato foi observado há muito 
tempo. Platão (427-347 A.C.) no "Ti- 
meu", Hierão (100-150 D.C.) em "Ca- 
tóptrica", e Lucrécio (95-55A.C.) em 
"Sobre a Natureza das Coisas" já ana¬ 
lisaram a reversão e chegaram a indi¬ 
car a existência de espelhos onde ela 
deixava de ocorrer (por reflexão da re¬ 
flexão), como os indicados na figura 1. 


A importância da reversão para o 
ser humano ganhou um novo desta¬ 
que com o desenvolvimento da fisio¬ 
logia da visão, no séc. XIX, que per¬ 
mitiu demonstrar que o globo ocular 
direito está interligado ao hemisfério 
cerebral esquerdo; enquanto que o 


globo ocular esquerdo se relaciona 
com o hemisfério cerebral direito. 

Atualmente tem-se verificado re¬ 
petidamente que esta reversão não 
ocorre apenas com os nossos olhos, 
mas que, em verdade, o hemisfério ce¬ 
rebral esquerdo governa muitas das 
funções à direita do nosso organismo; 
enquanto que o hemisfério cerebral di¬ 
reito faz o mesmo em relação à nossa 
esquerda. 

Esta reversão, envolvendo um ór¬ 
gão tão importante quanto o cérebro, 
traz conseqüências em muitas das ma¬ 
nifestações dos seres humanos. 

Uma criança, por exemplo, tem 
dificuldade em escrever as letras N ou 
E na sua forma correta, sendo muito 
freqüente, no seu início de aprendiza¬ 
do, desenhá-las na forma revertida 
ou ... o que talvez seja uma con- 
seqüênçia da forma como o seu in¬ 
consciente percebe o mundo. 

No caso particular das letras, é cu¬ 
rioso notar que o alfabeto cirílico — 
utilizado por cento e oitenta milhões de 
russos — possui os símboios e 
que são formas revertidas das letras R 
e N de nosso alfabeto. 

Ainda no domínio da linguagem 
existem reversões, bastante curiosas, 
com certas sentenças, chamadas "pa- 
lindrômicas", que tanto podem ser li¬ 
das no sentido normal de leitura como 
no sentido oposto, sem alterar o seu 
significado. Uma sentença deste tipo é 
latina e foi encontrada num dos mu¬ 
ros da cidade de Pompéia, soterrada 
pela erupção do vulcão Vesúvio, no 
século I da nossa era (figura 2), cuja 
tradução tem significado (tanto se a 
leitura é feita no sentido tradicional, 
como no sentido oposto). Algo equi¬ 


valente a: "o iavrador mantém cuida¬ 
dosamente o arador no sulco". 

sentido normal de leitura 

SATOR AREPO TENET 
OPERA ROTAS 

sentido inverso de leitura 

◄- 

Em português a sentença palin- 
drômica mais conhecida é a que mos¬ 
tramos na figura 3. Em inglês, ocorrem 
frases como a da figura 4 que signifi¬ 
ca: "levante os lábios do aluno". 

sentido normal de leitura * 

SOCORRAM-ME SUBI NO 
ÔNIBUS EM MARROCOS 

sentido inverso de leitura 

◄- 

sentido normal de leitura 

DRAW PUPIL'S LIP 
UPWARD 

sentido inverso de leitura 

◄ - 

Contudo, a sentença mais curiosa 
continua sendo a latina pois, reescrita 
na forma "quadrada", como foi en¬ 
contrada em Pompéia (figura 5) pode 
ser lida tanto nas linhas horizontais co¬ 
meçando em cima, da esquerda para a 
direita, ou em baixo da direita para a 
esquerda, como nas linhas verticais, 
começando por cima, pela coluna da 
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SATOR 

AREPO 

TENET 

OPERA 

ROTAS 


esquerda e lendo de cima para baixo, 
ou por baixo, pela coluna da direita e 
lendo de baixo para cima. 

Finalmente, é curioso notar que 
Leonardo da Vinci (1452-1519), enge¬ 
nheiro, arquiteto, escultor e inventor 
italiano que, sob muitos aspectos se 
adiantou à sua época, descrevendo em 
pleno século XV, "máquinas voado¬ 
ras", "paraquedas", "submarinos", 
"tanques", etc., redigiu as suas anota¬ 
ções em forma revertida, de tal manei¬ 
ra que o leitor só as entende ao lê-las 
refletidas num espelho plano (figura 6). 



Mas a reversão não surge apenas 
no domínio da linguagem ou da escri¬ 
ta. Na música, por exemplo, também 
foi utilizada freqüentemente. Johann 
Sebastian Bach (1685-1750) em Die 
Kunst Der Fuga (A Arte da Fuga) 
compôs a Fuga-13 como imagem in¬ 
vertida da 12. 


Joseph Haydn (1732-1809) na 
"Sonata para piano em Lá " compôs 
um minueto no qual a segunda parte é 
igual a primeira, mas tocada ao contrá¬ 
rio. 

Na música erudita moderna a re¬ 
versão foi utilizada por Arnaldo Schon- 
berg (1874-1951) que, em "Pierrot Lu- 
naire", faz a música seguir até certo 
ponto e depois a faz voltar, repetindo 
as mesmas notas ao contrário. 

Alunos de Schonberg, como An- 
ton Webern (1883-1945) e Paul Hinde- 
mith (1895-1963) utilizam a reversão, 
na procura de novas harmonias na mú¬ 
sica. Em "Concerto para Nove Instru¬ 
mentos — op. 24", Webern desenvol¬ 
veu a partitura numa forma palindrô- 
mica equivalente ao quadrado achado 
em Pompéia, em Ludus Tona/is Hin- 
dermith escreveu em epílogo que é, 
com adição de um acorde final, igual 
ao prelúdio, só que tocado de cabeça 
para baixo e de trás para diante. 

Além da escrita e da música, a re¬ 
versão surgiu também na pintura, par¬ 
ticularmente na obra de M.C. Escher 
(1898-1972), pintor holandês celebri¬ 
zado em milhares de reproduções em 
cartazes, camisetas, etc. . . onde as 
suas estranhas simetrias e reversões 
são utilizadas sem a menor referência 
do autor (figura 7). 



Num estilo diferente, o húngaro 
V. Vasalery (1908 — ) também 

causou modismos marcantes nos pa¬ 
drões estéticos dos anos 70, utilizando 
constantes simetrias e reversões (figu¬ 
ra 8). 



Apesar de tudo isto, a reversão se¬ 
ria apenas uma curiosidade se de 1930 
a 1960 não tivessem sido desenvolvi¬ 
das uma série de observações sobre a 
estrutura da matéria, que sugeriam ser 
este fenômeno fundamental para o co¬ 
nhecimento do universo. 



O O O MONOUTH 2001 


ELETRÔNICA E JOGOS 
COM E EXP LTOA. 




R AUGUSTA 1371 S/L 7 . TEL lOI?) 268 4370 - S PAULO 




EQUIPAMENTOS TK 85, ELPPA IL , ELPPA JR. 
E COLOR 64 
JOGOS EM GERAL 

SOFTWARE P/ TK 85, CP 200 E R 470 




SÉRIE APLICATIVOS 

• ANALISE OE INVESTIMENTOS E FINANCIAMENTOS - 16 K 

MÉTODO OA TAXA DE RETORNO. METOOO BENEFICIO/ CUSTO. 
MÉTODO DO VALOR PRESENTE F ANALISE OE FINANCIAMENTOS 


SÉRIE JOGOS EDUCATIVOS 

• CERTAS PALAVRAS - 16 K 

DOIS JOGOS PARA APRIMORAMENTO E DESENVOLVIMENTO 
LÓGICO - VERBAL ALIANDO HABILIDADE E INTUIÇÃO. 


SÉRIE SIMULAÇÃO 

• EUROPA 2001 - 16 K 

SEJA UM DOS LÍDERES DO PÒS - GUERRA NUCLEAR. 
UTILIZANDO OS RECURSOS RESTANTES PARA RECOLONIZAR 
A EUROPA 

• BRASIL 2001 - 16 K 

TENTE SALVAR 0 BRASIL. SE AINDA FOR POSSÍVEL. EVITANDO 
0 DOMÍNIO DA AMAZÔNIA POR INCRÍVEIS FORÇAS EXTERNAS 


• USA 


2001 - 16 K 

UM GRANDE CONGELAMENTO DO HEMISFÉRIO NORTE 
AMEAÇA A SOBREVIVÊNCIA DOS EUA. ENCONTRE A SOLUÇÃO 


SÉRIE LAZER 

• OIAGOOAMAS - 16 K 

SIMULAÇÃO OE JOGO DE TABULEIRO 
JOGADO DIAGONALMENTE 


ÓTIMAS CONDIÇOES PARA REVENDA LIGAR PARA 
(011) 268 4370 


REVENDEDORES EM SP CINÓTlCA - COMPUTIGUE - IMARÉS • 
COMPUTERLAND - GUEOES - FOTOLEO - COMPUTE - AKOPOL 
AUDIO - BÜCKER 


J 
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"Você gostaria de viver no País dos Espelhos, Kitty? 
Será que, lá, lhe dariam leite? 

Talvez o leite do País dos Espelhos 
não seja bom para beber". 

Alice, em Através do Espelho e o que Alice 
encontrou lá, de Lewis Carroll. 


16514 2A0C40 LD HL, (D-FILE) ; inicializa os registros. B é usado co¬ 


16517 

111000 

LD DE, $10 

16520 

19 

ADDHL.DE 

16521 

54«LD D,H 


16522 

5D 

LD E,L 

16523 

13 

INC DE 

16524 

0616 

LD B, $16 

L2 



16526 

7E 

LD A, (HL) 

16527 

FE 76 

CP $76 

16528 

28 09 

JR Z, $09 

16531 

EB 

EX DE,HL 

16532 

4E 

LD C, (HL) 

16533 

77 

LD (HL), A 

16534 

EB 

EX DE, HL 

16535 

71 

LD (HL), C 

L3 



16536 

2B 

DEC HL 

16537 

13 

INC DE 

16538 

18 F2 

JR —14 

16540 

113100 

LD DE, $31 

16543 

19 

ADD HL, DE 

16544 

54 

LD D, H 

16545 

5D 

LD E, L 

16546 

13 

INC DE 

16547 

10 E9 

DJNZ, - 23 

16549 

C9 

RET 


mo o contador de linhas; HL e DE in¬ 
dicam o caractere da tela. 


; armazena em A o caractere da tela e 
compara com o fim de linha. Se for 
fim de linha vai para L3. 

; carrega (HL) em (DE) e (DE) com A. 


; HL e DE sfio alterados e indicam os 
PRÓXIMOS DOIS CARACTERES. 

; quando chega ao final da linha, HL é 
movimentado para a 16? coluna da 
próxima linha e DE é carregado com e 
valor de HL e incrementado. 

; repete o looping por 22 vezes. 

Ao terminar as 22 vezes, retorna ao 
BASIC. 

Fig.1 


Ao terminar aparecerá um 
"pronto". Apague as Unhas de 20 a 


100 e 

• digite as Unhas de 

20 a 60 co 

mo na figura 4. 



2*3 

XNPUT 



30 

PR: INT 



4-0 

PRUSE 

300 



RflHD 

USR 

1 . 6514 . 

60 

GOTO 

20 





Fig. 4 


Ao rodar este novo programa 
(com a Unha 10 do antigo), você de¬ 
verá digitar uma palavra qualquer e 
pressionar NEW UNE. Cinco segun¬ 
dos depois (PAUSE 300), a sub-ro- 
tina em Linguagem de Máquina é 
chamada (RAND USR 16514) e a 
palavra digitada é escrita na tela em 
ordem revertida. Note que não se 
trata de uma verdadeira reversão, 
pois os símbolos continuam escri¬ 
tos da esquerda para a direita. 




Você pode simular uma rever¬ 
são na tela do seu computador com 
um curtíssimo programa em Lingua¬ 
gem de Máquina. Se você já tem al¬ 
gumas noções de Assemb/y, dê 
uma lida no programa com mnemó¬ 
nicos, nos códigos hexadecimais e 
nos comentários da figura 1. 

Para entrar com este programa 
em seu computador, digite inicial¬ 
mente em Basic o programa moni¬ 
tor de figura 2, lembrando que a li¬ 
nha 10 REM deve ter 36 pontos. 


10 REH 


30 ScRüíC 1651 * T ° 16549 
4-0 PRINT X, 

50 INPUT C 
60 PRINT C 
70 POKE X,C 
80 NEXT X 
90 SCRQLL 
100 PRINT "PRONTO" 


Fig. 2 

A função deste programa é in¬ 
troduzir os códigos de máquina (no 
caso já transformados de hexadeci¬ 


mal para decimal) na Unha 10 REM 
através do POKE da Unha 70. Ao di¬ 
gitar RUN, deverá aparecer o ende¬ 
reço 16514 na parte baixa da tela. A 
listagem da figura 3 mostra os códi¬ 
gos que você deverá digitar. Por 
exemplo, 42 e NEW LI NE. Aparece¬ 
rá então, o endereço 16515 e você 
deverá digitar o próximo código, no 
caso, 12 e assim sucessivamente. 


LISTRGEM DECIMRL 


15514-. * 412 

16515..12 

16516 . * 54- 

16517..17 

16519..16 

16519..0 

16550..55 

16521..84 

16522..93 

16523..19 

16524- , - 6 

16525..22 

16526,.126 

16527..254 

16529..113 

16529 * .40 

16530..9 

165*31. . 235 

16532..79 

16533..119 

16534-. .235 

16535..113 

16536.. 4-3 

16537..19 

16533 . .24- 

16533..£42 

1654-Õ . . 17 

16541..43 

1654-2 . . O 

16543..25 

1654-4- . . 84 

16545..93 

1654-6. . 19 

16547..16 

16548..233 

16549. - 201 

Fig. 3 


A frase em português citada 
neste artiqo tem, por coincidência, 
uma Unha de comprimento 32 (sem 
contar hífen de espaço). Experimen¬ 
te digitá-la. 


GO 

ST UF 


100 

LIST 


110 

RRND 

USR 16S14- 

120 

POR 

X=0 i O 20 

130 

NEXT 

X 

140 

GOTO 

110 


Fig. 5 


E veja o que é uma políndrome! 

Você pode agora armazenar es¬ 
ta sub-rotina, muito útil principal¬ 
mente na elaboração de jogos. 

Experimente acrescentar ao 
seu programa as Unhas da figura 5, 
digite RUN 100 e veja o efeito! 


Pierlugi Piazzi 
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Por volta de 1930 aceitava-se que 
a matéria era constituída de átomos 
cuja estrutura lembrava, em muito, o 
nosso sistema solar (figura 9). No cen¬ 
tro dessa estrutura se encontra o nú¬ 
cleo atômico, onde se concentra a 
maior parte da massa do átomo, for¬ 
mado por "prótons" de carga elétrica 
positiva e "nêutrons", isentos de car¬ 
ga elétrica e, em torno do núcleo, os 
pequeníssimos elétrons, de carga elé¬ 
trica negativa, orbitam como os plane¬ 
tas em torno do sol. 



Em 1931, porém, esta curiosa es¬ 
trutura mostrou-se insuficiente. Cari 
Anderson (1905 — ), jovem físico nor¬ 
te-americano, estudando radiações de 
alta energia provenientes do espaço 
exterior, chamadas "radiações cósmi¬ 
cas", fotografou a trajetória de elé¬ 
trons resultantes do choque destas ra¬ 
diações com partículas materiais, e ob¬ 
servou que, ao submeter a região onde 
ocorriam os choques a um intenso 
campo eletromagnético, metade dos 
elétrons se desviavam num sentido, 
enquanto que a outra metade o fazia 
no sentido oposto. 

A única maneira de explicar este 
comportamento levava a aceitar a exis¬ 
tência de elétrons com Garga elétrica* 
positiva, que Anderson chamou de 
"pósitrons". A verificação da existên¬ 
cia dos pósitrons deu a Anderson o 
prêmio Nobel de Física em 1936. 

Em 1955, na Universidade da Cali¬ 
fórnia, em Berkeley, o italiano Emílio 
Gino Segre (1905 — ) e o norte-ame¬ 
ricano Owen Chamberlain (1920 — ) 
determinaram a existência de prótons 
com carga elétrica negativa, motivo 
pelo qual compartilharam o prêmio No¬ 
bel de Física em 1959. 


Como os pósitrons e os prótons 
negativos se apresentavam como ima¬ 
gens revertidas dos elétrons e prótons 
conhecidos até então, começou a se 
generalizar o costume de chamá-los de 
"anti-partículas". 

No outono de 1956, foi determi¬ 
nada a existência de um reverso do 
nêutron, o "anti-neutron" e, a partir 
daí, cada partícula descoberta no inte¬ 
rior do átomo foi acompanhada de 
uma "anti-partícula" correspondente a 
sua imagem revertida num espelho 
plano. 

As especulações em torno destes 
fatos levavam .a acreditar na existên¬ 
cia de "anti-átomos", e, por extensão, 
de "anti-moléculas" e mesmo de "an¬ 
ti-matéria" (figura 10). 



Um átomo de ma¬ 
téria "normal" po¬ 
de ser formado por 
um próton, de car¬ 
ga elétrica positiva 
e um elétron orbi¬ 
tando em torno de¬ 
le, de carga elétrica 
negativa. 


O "anti-átomo" 
correspondente, é 
a imagem revertida 
do átomo normal, 
com inversão do 
sinal das cargas 
elétricas. 


De fato, anti-átomos foram detec¬ 
tados em laboratório, porém, desde o 
início se destacou a paridade destes 
elementos na natureza e seu pequenís¬ 
simo intervalo médio de vida, da or¬ 
dem de 10 - 6 , uma vez que em média, 
neste exíguo intervalo de tempo, o 
anti-átomo colide com um átomo 
normal e, no resultado do choque, am¬ 
bos se aniquilam, transformando-se 
em energia radiante. 

Assim, uma pergunta foi surgin¬ 
do e se impondo à medida que as an¬ 
ti-partículas eram detectadas: 

— "Por que não ocorre uma dis¬ 
tribuição simétrica de matéria e anti- 
matéria?" 


Isto é, se as duas formas são pos¬ 
síveis no Universo, porque o nosso 
mundo é constituído por apenas uma 
delas? 

Em 1956 os físicos Tsung Dao Lee 
(1926 - ) e Chen Ning Yang (1922 

— ), no Instituto For Advanced Stu- 
dies, em Princenton, mostraram, de 
forma imbatível, que na nossa região 
do Universo ocorre de fato uma orien¬ 
tação preferencial, com a conseqüente 
falha na simetria a nível de estrutura 
atômica. Esta demonstração valeu-lhes 
o prêmio Nobel de Física em 1957. 

Contudo, é conveniente destacar 
que esta falha na simetria pode ser 
apenas local e que, a nível de Univer¬ 
so, poderão existir tanto uma orienta¬ 
ção das partículas quanto a outra, dis¬ 
tribuídas de tal forma que, enquanto 
alguns aglomerados de estrelas (gala- 
xias) equivalentes a nossa região do 
Universo, são formados por um dos ti¬ 
pos de estrutura, outros, de mesmo 
número que os primeiros, são forma¬ 
dos pelo segundo tipo. A este respeito 
tem-se apontado a galaxia conhecida 
como "Grande Nebulosa de Andrôme- 
da", a aproximadamente 2X10 20 km (is¬ 
to é, em torno de duzentos quintilhões 
de quilômetros da Terra) que, ao ser 
observada através dos grandes teles¬ 
cópios, apresenta a forma simétrica e 
reversa da galaxia onde nos encontra¬ 
mos, como sendo uma candidata ra¬ 
zoável para formar conosco um par 
"matéria" (nós) e "anti-matéria" (an- 
drômeda). Assim, não deixa de ser cu¬ 
rioso pensar que talvez neste momen¬ 
to, numa "anti-Terra" de Andrômeda, 
um "anti-você" esteja lendo um "anti- 
texto" equivalente ao que você está 
lendo agora, com tanta "anti-surpre¬ 
sa", "anti-admiração", e "anti-espan¬ 
to", quanto a sua própria surpresa, ad¬ 
miração e espanto. 

Contudo, se algum dia você vier a 
encontrar teu "anti-você", evite qual¬ 
quer contato direto, pois a experiência 
mostra que as respectivas massa e 
"anti-massa" se transformariam ime¬ 
diatamente numa quantidade imensa 
de energia radiante, que provocaria 
nas vizinhanças, uma catástrofe equi¬ 
valente ao impacto direto de um mo¬ 
derno míssil nuclear! 

Deixando as catástrofes atômicas 
de lado, observamos ainda que o fato 
de existirem átomos e moléculas rever¬ 
tidas deveria gerar seres vivos, consti¬ 
tuídos por moléculas complexas (pro¬ 
teínas) revertidas, mas que, mais uma 
vez, como aconteceu com a matéria e 
antimatéria, na região do Universo que 
habitamos ocorre preferência por uma 
determinada orientação e sentido de 
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rotação das cadeias moleculares, em 
relação a orientação e rotação opostas. 

Desta forma, na nossa região do 
Universo (na Terra, pelo menos), as 
proteínas formadoras de todos os se¬ 
res vivos, das amebas aos homens, são 
exclusivamente "levógiras", isto é, es¬ 
tão orientadas como a mão esquerda, 
ocorrendo proteínas "dextrógiras", is¬ 
to é, orientadas como a mão direita so¬ 
mente em compostos artificiais, obti¬ 
dos a nível de laboratório. 

A este respeito vale destacar a cu¬ 
riosa observação efetuada por Charles 
L. Dodgson (1832-1898), que sob o 
pseudônimo de Lewis Carroll, escreveu 
em 1871, um clássico dos contos de.fa- 
das: "Através dos espelhos, e o que 
Alice encontrou lá". Matemático da 
melhor qualidade, Dodgson fez, no 
meio do relato das aventuras de Alice, 
uma indagação que muito tem intriga¬ 
do, inclusive os físicos, até os dias de 
hoje. 

A certa altura dos acontecimen¬ 
tos Alice olha na direção de um espe¬ 
lho plano, e, vendo a sua imagem refle¬ 
tida segundo o copo de leite que no 
momento tomava, se pergunta (em 
1871!) se o leite do espelho seria bom 
de beber. 


Pensou-se durante algum tempo 
que tal leite não seria digerido porque 
as enzimas do corpo humano, destina¬ 
das a agir sobre as moléculas "levógi¬ 
ras", não seriam capazes de assimilar 
as moléculas revertidas do espelho. 
E dessa forma, Alice teria um tremen¬ 
do desarranjo intestinal! 

Mas, na verdade, o caso poderia 
ser bem pior, pois o leite do espelho se¬ 
ria de fato "anti-leite", e assim que os 
delicados lábios de Alice encostassem 
na superfície do "leite do espelho", 
uma tremenda explosão, resultando do 
aniquilamento matéria-antimatéria, 
varreria toda a cidade de Londres, 
transformando-a num deserto calcina¬ 
do, muito antes de nossa inocente he¬ 
roina pode sofrer qualquer dor de barri¬ 
ga! (Figura 11). 


c ^ 

0 prof. Álvaro Csapo Tala vera é enge¬ 
nheiro eletricista formado pela Escola de En¬ 
genharia Mauá fez curso no Instituto de Fí¬ 
sica da USP atualmente é professor de Fí¬ 
sica do Curso Anglo-Latino e co-autor do 
"PROJETO 2? grau" editado pela MARCO 
EDITORIAL, do qual foi extraído o texto des¬ 
te artigo. 
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SYS DEZ 

comercio e manutenção de 
computadores Itda. 

Rua das Rosas, 732- 
CEP.0404S.Tel. 


_ 


Horários: diurno, noturno e 
sábados 

Inscrições abertas 

Revendedor e assistência técnica 

il: PROLOGICA 

■■ microcomputadores 



Para obter seu exemplar mensal (12 
números) da revista Microhobby conten¬ 
do muitos programas para o TK como 
também para o Apple e o TRS-80, inúme¬ 
ras dicas e as últimas novidades na área de 
informática, você deve fazer uma assina¬ 
tura. 


COMO FAZER 
SUA ASSINATURA 


É importante ressaltar que o recebi¬ 
mento da revista é considerado a partir da 
data de recebimento do pedido de assina¬ 
tura, porém, há um período de 30 dias de 
carência até a revista chegar às suas mãos. 
Os números anteriores da revista podem 
ser adquiridos se as tivermos no mo¬ 
mento do pedido em nossos estoques, 
através do telefone 255-0722,diretamen- 
te com o Departamento Comercial. 

Para ter acesso a todas estas vantagens 
basta preencher, corretamente, o cupom 
anexo, colocá lo no correio junto a um 
cheque nominal ou vale postal em nome 
de Micromega Publicações e Material Di¬ 
dático, no valor de Cr$ 19.800,00. 

O envelope deverá ser selado e endere¬ 
çado com os seguinte dizeres: 


M 

m 


MICROMEGA P.M.D. LTDA. 
Departamento de Assinaturas 
Caixa Postal 54096 
CEP 01296— São Paulo, SP. 


e dentro dele não deverá ter nada além do 
cheque e o cupom. 

No verso do cheque, escreva: 

"Destina-se ao pagamento de uma as¬ 
sinatura (12 números) da revista Micro¬ 
hobby". 

Quando este cheque for devolvido ao 
seu Banco com nosso endôsso, servirá (pa¬ 
ra você), de comprovante provisório até 
que nosso recibo seja confeccionado e en¬ 
viado pelo correio. 
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NA EDIÇÃO EXTRA DA REVISTA 

M 




Cobertura de todos expositores da Feira de 
Informática, 84 — RJ. 


Anuncie já os seus produtos ou serviços nessa 
edição extra da revista MICROHOBBY, que terão 
um retorno garantido através de 

120.000 leitores em todo País. 


Para anunciar, basta telefonar. 

( 011 ) 255-0722 


FECHAMENTO PARA PUBLICIDADE: 30/09/84 


A edição extra da MICROHOBBY trará uma 
retrospectiva da informática no Brasil, entrevistas 
com quem entende da matéria, grande número de 
programas para a Unha TK (TK83/85 e 
TK2000-co/or), TRS-80, APPLEe compatíveis, 
lançamentos de software, periféricos e 
equipamentos e também uma completa lista de 
software e equipamentos existentes no mercado 


MICROHOBBY, A REVISTA QUE PÕE 
VOCÊ EM DIA COMA INFORMÁTICA. 


Uma publicação da 

MICROMEGA Publ. e Mat Did. Ltda. 

Av. Angélica, 2.318 — 13?andar 

Cxa. Posta! 54096 - CEP 01296 - S. Paulo - SP 


Leoni 













PROGRAMA DO LEITOR 


Dinheiro no tempo 
Memória Ocupada: 12862 bytes 
Soma Sintática: 5136 



DINHEIRO NO TEMPO 

2' parte 


A) PROGRAMA 1 


1? OPÇÃO - Calcula o VALOR 
PRESENTE, conhecidos: o número de 
períodos, taxa de juros por período e o 
VALOR FUTURO. 

Exemplo: Qual o valor que deve 
ser investido hoje, a 12 por cento ao 
mês, para que, daqui a doze meses, 
possam ser resgatados CrS 100.000,00 
num papel de renda fixa? 

Entrando com a taxa de juros 
(12%), o número de períodos (12) e o 
valor futuro (CrS 100.000,00) o pro¬ 
grama deve apresentar a resposta con¬ 
forme a figura 2. 

2? OPÇÃO - Calcula o VALOR 
PRESENTE, conhecidos: o número de 
períodos, taxa de juros por períodos e 
o VALOR DA PRESTAÇÃO. 

Exemplo: Um anúncio diz que um 
aparelho pode ser comprado em 24 
meses com uma prestação de CrS 
18.000,00, sem entrada. Sabendo que 
a loja cobra 10 por cento de juros ao 
mês, qual o preço do aparelho à vista? 

O programa deve responder con¬ 
forme a figura 3. 

3? OPÇÃO - Calcula o VALOR 
FUTURO, conhecidos: o número de 
períodos, a taxa de juros por períodos 
e o VALOR PRESENTE. 

Exemplo: Se forem investidos 
CrS 800.000,00, hoje, a uma taxa de 
juros mensal de 12 por cento, qual de¬ 
verá ser o montante daqui a um ano? 

O programa deve responder con¬ 
forme a figura 4. 


4? OPÇÃO - Calcula o VALOR 
FUTURO, conhecidos: o número de 
períodos, a taxa de juros por períodos e 
o VALOR DA PRESTAÇÃO. 

Exemplo: Se depositarmos CrS 
15.000,00 todo o mês numa instituição 
financeira que paga 6 por cento de ju¬ 
ros ao mês, qual o montante após dois 
anos de depósitos? 

O programa deve responder con¬ 
forme a figura 5. 

5? OPÇÃO_ - Calcula o VALOR 
DA PRESTAÇÃO, conhecidos: o nú¬ 
mero de períodos, a taxa de juros por 
períodos e o VALOR PRESENTE. 

Exemplo: Qual o valor da presta¬ 
ção de um automóvel se ele custa CrS 
4.000.000,00, foi financiada em 36 me¬ 
ses a 10 por cento ao mês de juros? 

O programa deve responder con¬ 
forme a figura 6. 

6? OPÇÃO_ - Calcula o VALOR 
DA PRESTAÇÃO conhecidos: o nú¬ 
mero de período, a taxa de juros por 
períodos e o VALOR FUTURO. 


Luiz Tarcísio de Carvalho Jr 

Exemplo: Uma reportagem diz 
que um novo microcomputador será 
lançado daqui a dez meses ao preço de 
CrS 600.000,00. Quanto deve ser depo¬ 
sitado mensalmente numa caderneta 
de poupança que paga 8 por cento ao 
mês, para que se consiga a quantia pa¬ 
ra comprar o aparelho quando for lan¬ 
çado? 

O programa deve responder con¬ 
forme a figura 7. 

OBSERVAÇÃO: Após cada cál¬ 
culo o Programa 1 oferece invariavel¬ 
mente as seguintes opções: 

1) Mudar de opção no programa 
1, teclando A. 

2) Manter a mesma opção com 
outros valores (tecla B), com mesma 
taxa de juros (tecla C) ou com a mes¬ 
ma taxa de juros e mesmo número de 
períodos (tecla D). 

3) Mudar para o programa 2, te¬ 
clando I (neste caso, você voltará ao 
quadro inicial de escolhas).» 

4) Parara execução do programa. 

Veja a figura 8. 


Figura 2 


©URL. R TRXR DE JUROS EXPRESSR EH 
PQRCENTRGEfi? 

U = 12 POR CEríTQ 

OURL O NUMERO DE PERÍODOS? 

N = 12 

CURL qt OmL.GR FUTURO? 

FsCRjTiefe - coo ,00 


ssas El 


PP.E5JE 


iaâ=CR$ £5.667,51 
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QURL R TRXR DE JUROS EXPRESSA EH 
PORCENTAGEM? 

u = i0 por cento 

OURL O NUMERO DE PERÍODOS? 

N = 24 

OURL O URLOR DR PRESTRCfiD? 

R=CR$ IS.000,00 


UR LO 


aBaa§gSGfS13=CR$ 1Õ1.72S,39 


Figura 3 


OURL R TRXR DE JUROS EXPRESSR EH 
PORCENTRGEM? 

U = 12 POR CENTO 


OURL O 
N = 12 


NUMERO DE PERÍODOS? 


OURL O URLOR PRESENTE? 

P=CR$ 800.000,00 

3.118.780,80 


Figura 4 


OURL R TRXR DE JUROS EXPRESSR EM 
PORCENTRGEM? 

U=6 POR CENTO 

OURL O NUMERO DE PERÍODOS? 

N=24 

OURL O URLOR DR PRESTRCRO? 

R =CR$ 15.OOO ,00 


URL O 


EWHSII!IÍH = CR$ 782.233,68 


Figura 5 


OURL R TRXR DE JUROS EXPRESSR EM 
PORCENTRGEM? 

U = 10 POR CENTO 

OURL O NUMERO DE PERÍODOS? 

N =36 

OURL O URLOR PRESENTE? 

P=CR$ 4.000.000,00 

J=CR$ 413.372,26 


Figura 6 


OURL R TRXR DE JUROS EXPRESSR EM 
PORCENTRGEM? 

0=8 POR CENTO 

OURL O NUMERO DE PERÍODOS? 

N = 10 

OURL O URLOR FUTURO? 

F=CR$ 600.000,00 


PRESTRCRO 


=CR$ 4-1.417,60 


Figura 7 


>* -ri - vvLxkátú» 


K WÉMM 


I 


fOUTRR OPCRO . ..TECLR R 




ÍíMESMR OPCRO.TECLR B 


Figura 8 


B) PROGRAMA 2 


OPÇÃO 1 - Calcula a TAXA DE JU¬ 
ROS, conhecidos o VALOR PRESEN¬ 
TE, o VALOR DA PRESTAÇÃO e o 
número de períodos. 

Exemplo: Um estabelecimento co¬ 
mercial financiou a quantia de CrS 
180.000,00 em 6 meses. A prestação 
pedida foi de CrS 45.000,00. Qual a ta¬ 
xa mensal de juros cobrada pelo esta¬ 
belecimento? 

0 programa responderá conforme 
a figura 9. 

OPÇÃO 2 - Calcula a TAXA DE JU¬ 
ROS, conhecidos: o VALOR PRESEN¬ 
TE, o VALOR FUTURO e o número de 
períodos. 

Exemplo: Um terreno foi compra¬ 
do por CrS 1.000.000,00 numa certa 
data e passou a valer CrS 2.100.000,00 
um ano depois. Qual foi a taxa mensal 
de valorização do terreno? 

Fazendo o preço inicial do terreno 
ser o valor presente e o preço final ser 
o valor futuro, 12 meses depois, o pro¬ 
grama responderá conforme a figura 10. 

OPÇÃO 3 - Calcula o NÚMERO DE 
PERÍODOS, conhecidos: o VALOR 
PRESENTE, o VALOR DA PRESTA¬ 
ÇÃO e a taxa de juros por período. 


Exemplo: Qual o número de pres¬ 
tações que uma pessoa deverá pagar 
para saldar um empréstimo de CrS 
200.000,00 se ela só pode pagar no má¬ 
ximo a prestação de CrS 32.000,00, sa¬ 
bendo-se que a taxa de juros ao mês é 
de 8 por cento? 

0 programa responderá conforme 
a figura 11. 

OPÇÃO 4 - Calcula o NÚMERO DE 
PERÍODOS, conhecidos: o VALOR 
FUTURO, o VALOR DA PRESTAÇÃO 
e a taxa de juros por período. 

Exemplo: Durante quantos meses 
deve-se depositar a quantia de CrS 
8.000,00 para poder-se resgatar a 
quantia de CrS 380.000,00, com uma 
taxa de juros mensal de 10 por cento? 

O programa responderá conforme 
a figura 12. 

OPÇÃO 5 - Calcula o NÚMERO DE 
PERÍODOS, conhecidos: o VALOR 
PRESENTE, o VALOR FUTURO e a ta¬ 
xa de juros por período. 

Exemplo: Quantos meses deve-se 
esperar para que o capital de CrS 
5.000.000,00 triplique a uma taxa de 
juros mensal de 7,5 por cento? 

O programa fornecerá a resposta 
de acordo com a figura 13. 

OPÇÃO 6 — Esta opção fornece o 
SALDO DEVEDOR após o pagamento 


de uma dada prestação (L). Deve-se 
conhecer o VALOR PRESENTE, o VA¬ 
LOR DA PRESTAÇÃO, a TAXA DE 
JUROS por período e o número da 
prestação (L) após à qual quer-se saber 
o saldo devedor. 

Exemplo: João financiou a quan¬ 
tia de CrS 217.800,00 e paga uma pres¬ 
tação mensal de CrS 23.000,00 com 
uma taxa de juros de 8,5 por cento ao 
mês. Após um ano de pagamento (12 
prestações pagas) de quanto dinheiro 
João precisa para quitar a dívida? 

O programa deve responder de 
acordo com a figura 14. 
OBSERVAÇÃO: Após cada cálculo, o 
programa 2 oferece invariavelmente 
as seguintes opções: 

1) Mudar de opção no programa 
2, teclando A* 

2) Manter a mesma opção com 
outros valores, teclando B; 

3) Mudar para o programa 1, te¬ 
clando / (neste caso, você volta ao 
quadro inicial); 

4) Parar a execução do programa. 

Veja a figura 15. 


III — Entrada a Saída de Dados 

A entrada de dados no programa é 
feita segundo os padrões de Aritmética 
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Financeira. Para tal, são utilizadas duas 
sub-rotinas (5120 e 5220) que foram 
adaptadas de uma sub-rotina de Flavio 
Rossini (ver número 3 de Microhobby). 
Assim sendo, as grandezas TAXA DE 
JUROS, VALOR PRESENTE, VALOR 
FUTURO e VALOR DE PRESTAÇÃO, 
devem ser colocados no programa da 
maneira como costumamos escrevê- 


las, ou seja, em sua notação decimal, 
devem ser escritas com vírgula e não 
com ponto. 

Exemplo: Se uma taxa de juros é 
de sete e meio por cento, ela deve ser 
inserida como 7,5 e não como 7.5. Se 
você inserir 7.5, o computador "enten¬ 
derá" esse valor como 75, pois as sub- 
rotinas mencionadas fazem o compu¬ 


tador ignorar os pontos. 

A saída dos dados é "filtrada" por 
três sub-rotinas: as de número 4670 e 
4720, que arredondam os resultados, e 
a de número 4870, que gera saída em 
formato financeiro. Esta última tam¬ 
bém foi adaptada de uma sub-rotina de 
Flavio Rossini (edição número 3 de Mi¬ 
crohobby). 


QURL O UfiLOR PRESENTE? 

P=CR$ 180.000,00 

QURL R PRESTRCRO? 

R =CR$ 4-5.000,08 

QURL O NUMERO DE PERÍODOS? 

N =£> 

iEEaaESBHÍüfcE- 12,90 por cento 


Figura 9 


QURL O üfiLOR PRESENTE? 

P=CR$ 1.000.000,00 

QURL O URLOR FUTURO? 

F =CR$ 2 . 100 - 000 , 0 0 

QURL O NUMERO DE PERÍODOS? 

N = 12 

IÍI?I3=:S , 36 POR CENTO 


Figura 10 


QURL O URLOR PRESENTE? 

P=CR$ 200.000,00 

QURL R PRESTP.CRO? 

R=CR$ 32.000,00 

QURL R TRXR DE JUROS EXPRESSO EH 
PORCENTAGEM^ 

U=8 POR CENTO 


gmsfcfcr . 


SB3MSífiSiaS=9,oi 


Figura 11 


QURL O URLOR FUTURO? 
F =CR$ 380.000,00 

ftURL R PRESTRCRO? 
A=CR$ S.000,O0 


QURL R TRXR DE JUROS EXPRESSR EM 
PORCENTAGEM? 

J=10 POR CENTO 


NUM ER 


E*giasaE££I£EEB=i8,35 


Figura 12 


UGUE-SEÀ 

INFORMÁTICA 



rs 


FAÇA COMO OS 
FUNCIONÁRIOS OA 
ALCAN. XEROX, 
SEARLE. COPAS, 
INTELPA. DARLING, 
AIR SERVICE: 


MATRICULE-SE NA 
O.S. COMPUTADORES. 

CURSOS DE 


BASIC • COBOL • ASSEMBLER. 

• Número limitado de alunos por 
classe • 1 /3 de todas as aulas com uso 
' direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dismac, Prológica, 
Sysdata entre outros • Preços extremamente acessíveis. 



COMPUTADORES 


NÚCLEO I - S. PAULO 

Av. Pacaembú, 1.280 
Fones: 66 7656/66 1513 

NÚCLEO II - S. PAULO 

R. Tomás Carvalhal, 380 
(Próximo Estaçáo Metrô Paraíso) 
Fone: 570-6097 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 

NÚCLEO III - GUARUJÁ 

Av. Puglisi, 523 

Fone: 86^446 

NÚCLEO IV - ITANHAEM 

R. Zeperino Soares, 19 - sala 25 

Fone: 92 1492 

NÚCLEO V - SANTOS 

R. Mato Grosso, 450 


OUAL O UflLOR PRESENTE 1 ? 

P=CR$ 500.00(3,130 

QURL O URLOR FUTURO? 

F=CR$ 1.500.000,00 

QURL R TRXR DE JUROS EXPRESSR EH 
PORCENT RGEM? 

U=7,5 POR CENTO 


NUMERO DE PERÍODOS 


Figura 13 


QURL R TRXR DE JUROS EXPRESSR EH 
PORCENTAGEM? 

<J = 8,5 POR CENTO 

QURL O URLOR PRESENTE 1 ? 

P cCRt 217.800.00 

QURL O URLOR DR PRESTRCRO? 

R=CRí 23.000,00 

RPOS QURL PRESTRCRO UOCE QUER 
SRBEP. Q SRLOO DEUEOQP.? 

L = 12 

Ma»i«MB»a 4 jy=4sMd=cR $ 130.082,52 


Figura 14 
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QUADRO RESUMO DAS FUNÇÕES DO PROGRAMA 


PROGRAMA 1 


PROGRAMA 2 


DADOS: J, N, F-^ calcula p 


DADOS: P, A, N—calcula j 


1 

2 

3 

4 

... 

SJ 


Pt 



2 

3 

4 

... 

N 

J 

1 , 

r_ 

r_ __j 

r_ 

r i 


DADOS: J, N, A-^calcula p 
A 


DADOS: P, F. N—calcula j 


i 

k i 

k i 

k i 

k à 

k i 

1 

2 

3 

4 


N 


1 

2 

3 

4 

... 

N 


▼ F 


DADOS: J, N, P-►calcula 


DADOS: P, A, J-^calcula n 




ikP 

1 

2 

3 

4 

... 

N 


r ' 

f i 

r i 

f i 

- J 


DADOS: J, N, A-►calcula f 
A 


DADOS: F, A, J-^ calcula v 


A 

1 1 

\ ‘ 

k A 

k á 

k A 

1 

jJ 

3 

4 


N 


▼F 


▲ 

1 

2 

3 

4 


N 


r ' 

r i 

r i 

r 1 

r ir 


DADOS: J, N, P-^ calcula 4 
P 


DADOS: P, F, J-^calcula y 

AP 


1 

2 

3 

« 


N 


r i 

r i 

J 

Lj 

r i 


N 


DADOS: J, N, F-** calcula q 


▲ 

1 

2 

3 

4 


N 


r i 

r i 

r i 

r ' 

r ir 


DADOS: P. A, J, L-^ calcula SD 
A 


i 

k A 

k A 

k A 

H 

r 

k “A‘ i 

i 

— n 

i 

-•*! 

c 

1 

i 

1 

2 

3 


...| 

l 




SD 


IV — Digitação do Programa 


A listagem do programa, visto a 
diversidade de opções que ele oferece, 
é muito extensa. Recomendamos que 
você a faça em modo FAST e que a 
realize por partes, sempre gravando 


em fita a parte já digitada. 

Assim, os acidentes, como a falta 
de energia elétrica, não serão tão ca¬ 
tastróficos. 

Boa sorte! o 



ficou muito 
mais fácii para 
você adquirir manuais 
e livros para o TK. Basta 
assinalar os itens desejados, 
preencher o cupom abaixo 
e enviá-lo à M/CROMEGA. 


□ Manual Técnico TK 2000 16.850,00 

□ Manual Operações TK 2000 8.850,00 

□ Manual Operações TK 83 4.850,00 

□ Manual Operações TK 85 4.850.00 

□ Linguagem de Máquinas 9.900,00 

□ Curso de Jogos 4.500.00 

□ Coleção Progr. - Vol. I 4.900,00 

□ Coleção Progr. - Vol. II 5.500.00 

□ Basic TK 6.500,00 


Sim, desejo receber os itens assinalados 


NOME 

END. 

CEP 

CIDADE 

EST. 


Para tanto, anexo a importância 
de Cr$_ 


□ Cheque nominal à 
MICROMEGA P.M.D. LTDA. 

Banco_ □ Vale Postal 


Data: 


Assinatura 


MICROMEGA P.M.D. LTDA. 

Caixa Postal 54096 - CEP 01296 
São Paulo — SP 
CGC 52.275.724/0001-41 
INSCR. EST. 110.862.362 


3 

PREÇOS VALIDOS ATE 31 /06/84 

_ 
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QUEBRA-CABEÇA: 


O AMOR 
DO Sr, 
NABOR 



Renato da Silva Oliveira 


"Eu, Tolen e Ramarujan saimos da 
India há quatro dias. Deixamos o Dalai 
Lama em Dehra Dun e lá, decidimos 
visitar um antigo amigo nosso na Ingla¬ 
terra. 

Estamos indo por mar, num navio 
de nome GANDHI que transporta qua¬ 
se dois mil passageiros a bordo. 

Nossa estadia no GANDHI está 
sendo mais agradável do que esperá¬ 
vamos, pois nos três camarotes em 
frente aos nossos, estão alojados três 
belas e jovens passageiras. 

Nós as conhecemos na noite pas¬ 
sada, pouco antes do jantar. Para nos¬ 
sa sorte, uma delas tropeçou numa 
emenda do carpete do salão de jantar, 
derrubou o garçom que nos servia e 
acabou caindo nos braços de Tolen. 

Após nos apresentarmos, insisti¬ 
mos para que elas se sentassem à me¬ 
sa conosco e, diante de nossa persis¬ 
tência, o convite acabou sendo aceito. 

Não foi preciso conversarmos mui¬ 
to para percebermos a extraordinária 
coincidência que ocorrera: a moça que 
tropeçou no carpete era brasileira e as 
outras duas eram de nacionalidades 
hindú e chinesa. Aliás, a chinesa nas¬ 
cera em Lhasa, no Tibet. 

Com poucos argumentos, conse¬ 
guimos convencê-las a nos acompa¬ 
nhar no jantar preparado especialmen¬ 
te para nós com iguarias que Rama¬ 


rujan trouxera de Ajshrangivad, onde 
ele mesmo as cultivara. 

Logo ficamos sabendo que as mo¬ 
ças haviam se conhecido em Nova 
Delhi e que, por outra coincidência não 
menos extraordinária do que a que 
estava ocorrendo, iam todas à Ingla¬ 
terra. Por isso, tinham resolvido viajar 
juntas. 

Enquanto Ramarujan bebia cala¬ 
do seu suco de morangos silvestres 
puro e concentrado, Tolen entretia 
duas das moças e eu conversava com 
a outra. Ela me dizia que uma delas 
era programadora, outra era mate¬ 
mática e outra secretária executiva. 

Eu estava com pouca fome e em 
meu prato haviàm apenas quatro mo¬ 
rangos silvestres. Notei que uma das 
moças também não estava comendo 
quase nada, mas em compensação, 
bebia suco de morangos quase sem 
parar. 

Não sei bem porque, mas senti- 
me atraído por essa moça. Achei que 
ela também estava demonstrando in¬ 
teresse por mim e resolvi começar uma 
conversa qualquer. 

Falamos de muitas coisas e eu sur¬ 
preendi-me com seus conhecimentos. 

Até o final do jantar todos fala¬ 
mos sempre em inglês e, talvez por 
isso, pouco antes de deixarmos a me¬ 
sa, a chinesa confidenciava-se des- 


preocupadamente em Latin com a ma¬ 
temática. Possivelmente, elas imagi¬ 
navam que nós não estávamos enten¬ 
dendo nada. 

Elas observavam que "o cavalhei- 
ro" que bebia suco de morangos com 
leite tinha em seu prato exata mente 
três vezes mais morangos que a se¬ 
cretária, e que o "cavalheiro" de mes¬ 
ma nacionalidade que ela não estava 
bebendo nada. 

Nesse instante, só para deixá-las 
ruborizadas, Tolen perguntou a elas 
em Latin quais outras línguas elas fala¬ 
vam. As duas moças coraram enquan¬ 
to nos levantamos. Desculparam-se e 
caminhamos todos para nossos apo¬ 
sentos. Antes de lá chegarmos, a mo¬ 
ça hindú e a programadora foram à 
"toilette" e, enquanto às aguardáva¬ 
mos, convidei a moça pela qual me 
interessei para irmos ao convés obser¬ 
var a noite. 0 que aconteceu a partir 
daí foi uma das coisas mais inesperadas 
para mim. Creio que me apaixonei." 

Obviamente, você já sabe a quem 
pertence o texto acima. Pois bem, o 
quebra-cabeça desta edição consiste 
em fazer um programa para que o TK 
descubra qual o amor do Sr. Nabor 
Rosenthal (a hindú, a brasileira ou a 
chinesa e ainda, qual a profissão e 
respectiva nacionalidade de cada uma 
das moças!) 
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TEMPESTADE 



Muitos leitores que adquirem um 
micro em tempo recente, e que estão 
apenas engatinhando na linguagem 
Basic, dão preferência ao digitar pro¬ 
gramas simples e curtos. 

Apresento-lhes agora um progra¬ 
ma que ocupa apenas 2k de memória: 
Tempestade. (Figura 1) 



Neste jogo, em meio a uma tene¬ 
brosa tempestade, você está fugindo 
de um castelo mal assombrado, na 
qual seres que habitam aquele local, 
como morcegos e outros terríveis 
monstros terrestres estão em sua per¬ 
seguição. 


No decorrer da fuga (por sorte ou 
não), você encontra um veículo con¬ 
versível estacionado. 

Por medida de segurança, você 
tentará fechar o capô do carro, mas 
ao tentar este feito, as ferragens deste 
enguiça e, como você não dispõe de 
muito tempo para consertá-lo, acaba 
por dirigir o veículo do jeito que está. 
Porém, a tempestade é terrível e você 
precisará de muita sorte para desviar- 
se dos raios. (fig. 2) 


\ 

JOCE ESCRPOU DE 7 RRIOS 


V_ fj 9- 2 J 


Gustavo Egídio de Almeida 

Para dirigir seu carro use as te¬ 
clas: 


0 — Para esquerda 

1 — Para direita 

Como o programa é curto, algu¬ 
mas pequenas observações devem ser 
feitas, como: 

Gráficos usados nas linhas 40 e 50: 

40-2 SPACES, SHIFT GRA- 
PHIC E, SHIFT GRAPHIC W, 0, 1 
SPACE 

50 - 1 SPACE, 0, 3 GRA- 
PHIC 7,0, 1 SPACE 


10 PRINT nr URL 


"O 


o 

L 


AC» LíiT L=PI-PT 

20 LET fí-URL ”19” 

30 LET 0=PI-PI 

40 pfjINT p.T FS»o •* 

50 PR INT PT R + UPL "1”,B; M 0“»^ 

60 LET C«I?>fT ,, 31“>+un 

” 1 " 


70 LET D =URL ” 16” 

00 PRINT RT D..Cl-<” 

Q0 PRINT PT D + URL 

ÍOG PRINT RT D+WL 

105 PRINT RT D+URL "3",d"/" 

106 LET LrL+UflL ”1” 

110 IF INKEV$ = "0" THEN LETT B=B F 
URL ”1" 

120 IF INKEY $ =" 1 *' THEN LET B=B- 


URL ”1” 

13G IF C=B+URL ” 
£” OR C=Bfl'RL *‘3** 
THEN GOTO URL ”2 
140 CLS 

150 GOTO URL ”40 
200 PRI NT RT R,P 
210 PRINT RT URL 
VOCE E 5CRPOU DE "; 
\DS” 


C” OR C=P+'JRL ” 
OR C=B+URL ”1" 
00” 


; ” < < CRFISH > > 
”0'*,URL "G 
L —URL - 
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TK 2000 




texto: Nancy Mitie Ariga 

programa: Sandra C. Van Blarcum de Graaff 



Traçados gráficos em alta resolução 


Traçados gráficos em alta resolução 


Desenhar polígonos em perspecti¬ 
va com uma boa resolução gráfica é 
um dos grandes sonhos de todo o pro¬ 
gramador de computador. Isto porque 
a maioria dos microcomputadores não 
possui uma boa definição gráfica. 

Entretanto, o TK-2000 e o Apple 
possuem uma página em alta resolu¬ 
ção que possibilita uma definição de 
um número maior de pontos na tela, se 
compararmos com a definição dos 
pontos no modo normal. Esta alta defi¬ 
nição, permite um traçado com mais 
detalhes. 


Comando HGR e TEXT 


O comando HGR permite que o 
TK-2000 e o APPLE entrem no modo 
gráfico em alta resolução. Esta alta re¬ 
solução permite a definição de 280 
pontos horizontais e 160 verticais, num 
total de 44800 pontos e as últimas duas 
linhas finais da tela permanecem no 
modo texto. 

Para retornar ao modo texto utili- 
za-se o comando TEXT. 


Comando HGR2 


Comando HGR2 permite uma alta 
resolução gráfica em toda a tela de 280 
pontos horizontais e 192 pontos verti¬ 
cais num total de 53760 pontos. 


Comando HPLOT 


HPLOT X, Y é a forma básica 


desta instrução que permite que um 
ponto na coordenada horizontal X e 
coordenada vertical Y seja colocado na 
tela. 

Porém, se utilizarmos esta instru¬ 
ção na forma HPLOT XI, Y1 TO X2, 
Y2 será traçado uma reta dos pontos 
XI, Y1 ao X2, Y2. Esta forma de instru¬ 
ção facilita o traçado de polígonos fe¬ 
chados. Por exemplo, se digitarmos 
uma instrução na forma HPLOT XI, Y1 
TO X2, Y1 TO X2, Y2 TO XI, Y2 TO 
XI,Y1 teremos um polígono fechado 
na forma retangular. 


Comando HCOLOR 


A forma deste comando deve ser: 
HCOLOR = x 

onde X corresponde a um número de 1 
a 7 conforme a tabela na figura 1. 

Esta instrução só pode ser utiliza¬ 
da no modo em alta resolução. 


Polígonos em alta resolução 


O programa da figura 2 é um pro¬ 
grama que permite o traçado de polí¬ 
gonos que formarão uma figura em 
perspectiva como a figura 3. 

Digite o programa da figura 2 e de¬ 
pois digite RUN para começar a rodar o 
programa. 

A linha 20 espera que você intro¬ 
duza um número N que será o número 
de polígonos que serão desenhados na 
tela de cada lado (N polígonos à direita 
e N polígonos à esquerda). Portanto 
quanto maior o número N, maior será o 
número de polígonos a serem traçados 
e menor será o espaço entre cada 


polígono (veja a diferença comparando 
as figuras 4 e 5). 

A linha 30 permite a entrada no 
modo gráfico em alta resolução de to¬ 
da a tela. 

A linha 40 indica a cor que será o 
polígono. Caso você prefira modificar a 
cor, veja a tabela de cores em alta re¬ 
solução para o TK-2000 e para o Apple 
na figura 1. 

As linhas 50 e 120 contem as coor¬ 
denadas dos dois primeiros polígonos a 
serem formados na parte inferior da 
tela: 

TI e T2 representam as abscissas do 

primeiro polígono da direita 

T3 e T4 representam as ordenadas do 

primeiro polígono da direita 

T5 e T6 representam as abscissas do 

primeiro polígono da esquerda 

T7 e T8 representam as ordenadas do 

primeiro polígono da esquerda 



MUDAMOS! 


Favor anotar nosso novo endereço 
Av. Angélica, 2.318 -13? andar 
01228 -São Paulo-SP 


Nossa Caixa Postal continua 
a mesma 

Caixa Postal 54096 
01256-São Paulo-SP 


Nosso telefone também: 
(011)255-0722 


c MICROMEi 


micromega 


MICROMEGA PubttcaçOaa • MatariaI Didático Ltda 


TK 2000 

APPLE 

Número 

Cor 

Número 

Cor 

0 

preto 

0 

preto 

1 

azul 

1 

verde 

2 

verde 

2 

violeta 

3 

branco 

3 

branco 

4 

azul 

4 

preto 

5 

vermelho 

5 

laranja 

6 

cyan 

6 

azul i 

7 

branco 

7 

branco Rg , 
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J.0 RE.M ***** POLIG 
ONOS TRIÜIMENSÍONA 

■u A- x x 

20 HOME s INPUT "NU 
MERO DE PASSOS ?"> 

N 

30 HGR2 
40 HCOLOR = 7 
50 Ti « í50 
60 T2 * 270 
70 T3 « 95 
80 T4 a 190 
90 T5 * íü 

lio Tí: $1° 

120 T8 « 190 
í30 HPLOT TÍ.T3 TO 
T2 r T3 TO T2,T4 TO 
Tí'T4 TO Tí'T 3 
Í40 HPLOT f5 r T7 TO 
Tó , T7 TO Tó, TÔ TO 
T5.T8 TO T5.T7 
15Õ X « 279ÍY a o 
160 Xí « o 
í70 FOR I = 1 TO N 
í 80 IF I < 25 THEN 
X * X - (278 / 25) 
sXí a Xí + <278 / 25 
)s GOTO 220 


í 90 
X a 
220 
200 
X a 
2 XI 


IF I = 


THEN 


02XÍ = 2792 GOTO 


IF I < 50 THEN 
X + <278 / 25) 

= Xí - <278 / 25 
)• GOTO 220 
2)0 IF I a 50 THEN 
X a 279sXí a 02 GOTO 
220 


220 Oí 

ss 

< (N 

- I) 

Ti + I 

X 

X) / 

N 

230 Rí 

ss 

< < N 

- I) 

T5 -f I 

* 

Xí ) 

/ N 

240 02 

ss 

< < N 

- I) 

T2 4- I 

# 

X) / 

N 

250 R2 

ss 

< <N 

- I) 

T6 4* I 

# 

Xí ) 

/ N 

260 03 

ss 

( < N 

- I) 

T3 + I 

# 

Y) / 

N 

270 R3 

ss 

< < N 

- I) 

T7 4 I 

* 

Y) / 

N 

280 04 

ss 

< (N 

- I-) 

í 4 4 I 

* 

Y) / 

N 

290 R 4 

ss 

< < N 

- I) 

T8 4 I 

#• 

Y) / 

N 

300 05 

ss 

< < N 

- I) 

X 4 I * 

Ti) / 

N 

3ÍÜ R5 

ss 

< ( N 

- I) 

Xí + I 

* 

T5) 

/ N 

320 06 

ss 

< <N 

- I) 

X 4 1 * 

T2) / 

N 

330 R6 

ss 

< < N 

- I) 

Xí 4 I 

# 

Tó) 

/ N 

340 07 

ss 

< (N 

- I) 

Y ♦ I « 

T3) / 

N 

350 R7 

ss 

< < N 

- I) 


Y f I * T7) / N 
360 Q8 a <<n - I) * 

Y + I * T4) / N 
370 R8 a <<n - I) * 

Y -f I * 78) / N 
380 HPLOT Qí 03 TO 
02,03 TO 02,04 TO 
Oí , 04 TO 01,03 

390 HPLOT Ô5,07 TO 
06,<37 10 06.0Ô TO 
05.08 TO 05'07 
40Ò HPLOT í , R3 TO 
R 2, R 3 TO R2,R4 TO 
RÍ.R4 TO RÍ.R3 
4í0 HPLOT R5.R7 TO 
R 6, R 7 TO R 6, Rô TO 
R5.R8 TO R5,R7 
42Ò IF I >' a N / 2 
THEN 440 
430 NEXT I 
440 GET S% 

450 TEXT 

470 GOTO 20 Fig.2 
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Veja, na figura 6, como estes pon¬ 
tos são localizados na tela. 

A linha 130 traça o polígono da di¬ 
reita e a linha 140 traça o polígono da 
esquerda. 

A linha 150 possui as ordenadas 
de referência dos polígonos que são 
traçados na parte superior da tela. X 
representa a abscissa do polígono à di¬ 
reita e Y representa a ordenada. 

A linha 160 possui a abscissa XI 
do primeiro polígono da esquerda. 

Nas linhas 180 a 210 são definidos 
os pontos em que o polígono deve mu¬ 
dar o sentido de formação do prisma, 
fazendo uma curva. A cada 25 polígo¬ 
nos traçados muda-se o sentido de for¬ 
mação. 

Nas linhas 220 e 370 estão as coor¬ 
denadas dos polígonos que serão for¬ 
mados: 

Q1 e Q2 representam as abscissas dos 
polígonos que iniciam sua formação na 
parte inferior da tela à direita; 

Q3 e Q4 representam as ordenadas dos 
polígonos que iniciam sua formação na 
parte inferior da tela à direita; 

Q5 e Q6 representam as abscissas dos 
polígonos que iniciam sua formação na 
parte superior da tela à direita; 

Q7 e Q8 representam as ordenadas dos 
polígonos que iniciam sua formação na 
parte superior da tela à direita; 

RI e R2 representam as abscissas dos 
polígonos que iniciam sua formação na 
parte inferior da tela à esquerda; 

R2 e R3 representam as ordenadas dos 
polígonos que iniciam sua formação na 
parte inferior da tela à esquerda; 

R5 e R6 representam as abscissas dos 
polígonos que iniciam sua formação na 
parte superior da tela à esquerda; 

R7 e R8 representam as ordenadas dos 
polígonos que iniciam sua formação na 
parte superior da tela à esquerda; 

A linha 380 traça os polígonos que 
iniciam na parte inferior da tela à direi¬ 
ta. 


A linha 390 traça os polígonos que 
iniciam na parte superior da tela à di¬ 
reita. 

A linha 400 traça os polígonos que 
iniciam à esquerda na parte inferior da 
tela. 

A linha 410 traça os polígonos que 
iniciam à direita na parte superior da 
tela. 

A linha 420 verifica o número de 
vezes que o/oop entre as linhas 170 e 
430 foi executado. A cada vez que este 
loop é executado quatro polígonos são 
traçados (2 na parte inferior e 2 na par¬ 
te superior da tela). O objetivo deste 
programa é traçar N polígonos à direi¬ 
ta e N polígonos à esquerda, num total 
de 2N polígonos. A cada loop são tra¬ 
çados 4 polígonos; portanto se N for 
par e I for o número de vezes que o 
loop deve ser executado teremos: 

I = (2N/4) = N/2 

Porém se N for ímpar, teremos 

que: 

1 = 2(N + 1)/4 = (N + D/2 

ou seja, o loop será executado (N +1)/ 

2 vezes. 

O número de loops executados é 
contato em I. Se o contador I for igual 
ao número de loops a serem executa¬ 
dos pelo programa a próxima instrução 
a ser executada é a linha 440. Porém, 
se o contador I for menor do que o nú¬ 
mero de loops a serem executados, o 
loop é executado novamente e o con¬ 
tador I é incrementado de uma uni¬ 
dade. 

A linha 450 espera que você pres¬ 
sione qualquer tecla para formar um 
outro prisma. 

A linha 470 faz com que o progra¬ 
ma retorne ao início. 

Agora que você sabe o que cada 
linha executa e o que cada variável re¬ 
presenta, sugiro que você teste algu¬ 
mas modificações e depois veja os efei¬ 
tos na tela. 


Digite: 

50 Ti * 200 
ÍÜO T6 « 80 

e verifique a mudança nas coordena¬ 
das de referência do traçado dos polí¬ 
gonos, alterando a largura dos polígo¬ 
nos utilizando N = 50. 

Digite: 

70 T3 ® 120 
110 17 = 120 

e verifique a alteração nas coordena¬ 
das iniciais, alterando o tamanho dos 
polígonos para N = 120. 

Digite: 

í 10 T 7 * '8CL ~ 

120 T8 « 150 

e verifique a alteração nas coordena¬ 
das iniciais do polígono da esquerda 
para N - 50. 

Redigite as linhas 50 e 120 da figu¬ 
ra 2 e a seguir digite: 

150 X = 279SY « 10 

e verifique para N = 90 a alteração 
ocorrida com a ordenada de início de 
traçado dos polígonos superiores. 
Digite: 

385 GOTO 400 
405 GO 10 420 

e verifique que desta forma os polígo¬ 
nos na parte superior da tela não serão 
traçados. 

Retire as linhas 385 e 405 e digite: 

125 GOTO .1.50 

375 GOTO 390 

395 GO 10 410 

que desta forma os polígonos da parte 
inferior da tela não serão traçados. 

Retire as linhas 125, 375 e 395 e 
Digite: 

135 GOTO 150 

385 GO10 410 

que serão traçados apenas os polígo¬ 
nos da parte inferior da tela à direita e 
os polígonos da parte superior à es¬ 
querda. 

Retire as linhas 135 e 385 e digite: 
125 GOTO 140 

375 GOTO 390 

405 GOTO 420 

que serão traçados os polígonos da 
parte superior da tela à direita e os polí¬ 
gonos da parte inferior à esquerda. 

Agora que você já conhece um 
pouco mais de gráficos utilizando o co¬ 
mando HPLOT no TK-2000, como foi 
visto neste programa, você, com suas 
habilidades, pode desenvolver ótimos 
programas relacionados com o traça¬ 
do em alta resolução. Boa sorte! 
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Programa do Leitor 


Memória Ocupada = 2770 bytes 
Soma Sintática = 41821 



DRAGÃO 



é tão bonzinho... o Dragão 


Programa: Daniel Gerk de Azevedo Quadros 
Texto: Nancy Mitie Ariga 


Você foi escolhido para ser o rei 
da Perívia e terá tudo que desejar, pelo 
resto de sua vida, se provar que mere¬ 
ce esta posição. Os habitantes da Perí¬ 
via desejam uma prova de força (ou sa¬ 
bedoria) e para mostrar a eles a sua ca¬ 
pacidade, você passará uma noite na 
Hha do Dragão levando uma única 
lança. 

Na Hha do Dragão vive um terrí¬ 
vel dragão, que passa o seu tempo 
passeando pelas 12 cavernas (0 a B) 
dispostas circularmente na ilha. (Fig. 1) 

Digite em qual caverna você su¬ 
põe que o terrível dragão se encontra. 
Se a lança for atirada na caverna corre¬ 
ta, você matará o dragão e subirá ao 
trono ao retornar à Perívia. Caso você 
não acerte a caverna, vá buscá-la, 
apertando a tecla S. 

Mas cuidado! Antes de ir buscar a 
lança atirada, o dragão pode ter tem¬ 
po de se mover para uma caverna ad¬ 
jacente. Logo, se o dragão for para a 
caverna em que você atirou a lança e 
você estiver lá, pegando a lança, adivi¬ 
nhe o que acontecerá?. . . 

Veja! O tempo está correndo e às 
oito horas o dragão sairá da caverna e 
o devorará com lança e tudo; portan¬ 
to apresse-se e use sua massa cefálica 


para descobrir onde o terrível dragão 
se encontra. Coragem, o povo da Perí¬ 
via confia em você e espera sua volta 
triunfal ao amanhecer, para coroá-lo 
como Rei da Perívia! 

Uma pequena informação: as úl¬ 
timas oito pessoas que foram escolhi¬ 
das para serem coroadas como rei da 
Perívia e foram à Hha do Dragão , não 
retornaram. Mas não desanime, você 
retornará. Para isto, aqui estão algu¬ 
mas dicas para você matar o dragão 
antes das oito: 

O dragão urra quando a lança é 
atirada na caverna ao lado dele, e 
todas as vezes que o dragão mudar de 
caverna, durante a sua caçada, você 
será informado. Por exemplo, na figu¬ 
ra 3, você atirou a sua lança na caver¬ 
na 8 e o dragão urrou logo, ele pode 
estar na caverna 7 ou 9, pois ele não se 
moveu e você pôde tranquilamente 
buscar sua lança na caverna 8. Já sua 
figura 2, você atirou a lança na caver¬ 
na 1 e não acertou porém, após o arre¬ 
messo da lança, o dragão se moveu. 
Como ele não estava nas cavernas ad¬ 
jacentes à sua, você pode buscar a lan¬ 
ça na caverna 1, apertando a tecla S. 

Digite o programa anexo e aceite 
o desafio! Mas, antes de digitar o pro¬ 
grama Dragão , introduza a Soma Sin¬ 
tática (Microhobby número 5) na RAM 


TOP do seu computador para poder, 
após a digitação do programa, confe¬ 
rir a Soma Sintática fornecida no qua¬ 
dro, digitando: 


PRINT USR 30000 


se a RAMTOP for o endereço 30000. 
Lembre-se que você deve primeira¬ 
mente digitar o programa exatamente 
como ele está, sem alterar nomes ou 
números (inclusive as linhas REM), se¬ 
não o valor da Soma Sintática não se¬ 
rá o mesmo. Cuidado ao digitar a linha 
1040, pois os caracteres são GRAPHIC 
SPACE e 3 GRAPHIC SHIFT G (lem- 
bre-se: a Soma Sintática exige que to¬ 
dos os caracteres sejam digitados exa¬ 
tamente como a listagem é apresen¬ 
tada). 

Para saber qual a memória ocu¬ 
pada apenas pelo programa, digite: 


PRINÍT PEEK 16396+256 *PEEK 16337 
-16509 


que ele fornecerá o número de bytes 
que o programa ocupa na memória do 
seu computador. 

Digite GOTO 4000 para gravar o 
programa. Assim, quando você termi¬ 
nar de carregar o programa ele imedia¬ 
tamente começa a rodar (AUTO — 
START). 
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O PROGRAMA 

1 REM DRNIEL G. R. 9URDROS 
120 GQ5UB 1000 
125 RRND 
130 LET H =5 
135 LET M =0 

14.0 PRINT RT 21,0, "DRRGOES JRNT 
RH RS S : 00*' 

150 LET D =INT (12iRND) 

150 GOSUB 3000 

155 PRINT RT 6,23; *'CRUERNR? " 

156 PRINT RT 7.23;** 

157 PRINT RT 8.23; M 
163 PRINT RT 9,23;" 

170 LET C$=XNKEY$ 

180 IF C$ = ‘*‘* THEN GOTO 170 

190 IF CODE C $ <23 OR C-ODE C$>39 

THEN GOTO 170 

195 PRINT RT 6.31;C$ 

200 LET C=CODE C$—28 
210 LET X=2*URL P$(2*0+1) 

220 LET Y=2*URL P$(2iC+2) 

230 FOR 1=1 TO 5 
240 PRINT RT Y,X;**B" 

250 GOSÜB 3200 

260 PRINT RT Y,X;CHR$ (C+28í 
270 G05ÜB 3200 
280 NEXT I 

290 IF D=C THEN GOTO 900 
300 IF RBS (D-C) =1 OR RBS lO-DA 
=11 THEN G05UB 3300 
310 PRINT RT 7.23; "ERROU. • . " 

320 LET S=INT (3iRND-l) 

330 IF 5=0 THEN GOTO 330 
340 LET D=D+S 

350 IF D < 0 THEN LET D=12fD 
360 IF DM1 THEN LET D=D-12 
370 PRINT RT 8,23,"MÜUELf 
380 PRINT RT 9.23;“BUSCR? - 
390 LET R $ =INKÊY $ 

400 IF R $ = ** ** THEN GOTO 390 
405 PRINT RT 9.29,R$ 



PROTEJA SEU 
MICRO 


CONTRA: 

• PICOS DE VOLTAGEM 

- TRANSIENTES DE TENSÃO 
■ RUÍDO ELÉTRICO 

- INTERFERÊNCIA: 

RÁDIO FREQÜÊNCIA (RF) 

POTÊNCIA: ATINGE ATÉ 1,5 KVA 
TENSÃO: 220V ou 110V 


ZENTRANX 

ELETRÔNICA, INDÚSTRIA E COMÉRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSÃO 

Av. Vitor Manzini, 410/414 
CEP 04745 — Santo Amaro — S. Paulo 
Tels.: (011) 522-2159 e 548-0651 


O 




CP 








\3 


pp 




O DRPGRO ENG 


410 IF R$ = *'N” THEN GOTO 450 
420 IF R$<>**S" THEN GOTO 390 
430 IF C=D THEN GOTO 300 
450 LET M=M+15 

460 IF M =60 THEN LET H=H + 1 
470 IF M =60 THEN LET M=0 
475 GOSUB 3000 
480 IF H=S THEN GOTO 300 
490 IF RS= n S" THEN GOTO 160 
500 PRINT RT 8,23; M 
510 GOTO 320 
300 REM PERDEU 
810 FOR 1=1 TO 5 
820 PRINT RT 21.0;* 

830- GOSUB 3200 

840 PRINT RT 21,0;-O DRRGRO ENG 
ÜRDR...UOCE PERDEU•" 

350 GOSUB 3200 
860 NEXT I 
370 GOTO 970 
903 REM RCERTOU 
910 FOR 1=1 TO 5 
92 3 PRINT RT 21,0; 

MsasaeüB 11 

93ü GOSÜB 32G0 

940 PRINT RT 21 . O, ,, PPRft8ENS . . . U 
OCE RCERTOU.'* 

950 GOSUB 3200 
960 NEXT I 

970 PRINT RT 21,8;“UfiMOS OGGRR 
DE NOUO? 

975 LET R$ = INKEY $ 

980 IF R 9 = *' N ‘* THEN STOP 

IF R $ = *' 3 ** THEN GOTO 130 
GOTO 975 

REM DESENHR CRVERNfíS 
CLS 

FGR 1=5 TO 15 
PRINT RT 0.1; * , B*' 

20.1; ,T S** 

1 , 0 ; 

X, 17; 


Ü.LM1 ^ MJ 


985 
990 
1OG0 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10S0 
1090 
1130 
1110 
1120 
113© 

1140 
1153 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
71513 
1260 FOR 


PRINT RT 
PRINT RT 
PRINT RT 
NEXT I 

FOR 1=0 TO 20 
PRINT RT 4.1.*’ 
PRINT RT 16.1; 
PRINT RT 1,4; "jâ 
PRINT RT 1,16; •jH 1 * 
NEXT I 

FOR 1=4 TO 12 STEP 
FOR 0 = 1 TO 3 
PRINT RT 1,0; If 


1,16+ü; **| 

ü, l; 

16+0 


x; 


PRINT RT 
PRINT RT 
PRINT RT 
NEXT O 
NEXT I 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 


LET P$ = '* 3151719395977959391 



DRPGRO 


1=0 TO 11 

1270 LET X=2*URL P$(1*2+1) 

1280 LET Y=2íUflL P$(1*2+2) 

1290 PRINT RT Y,X,CHR$ (23+1) 
1300 NEXT I 
1310 PRINT RT 1,24; 

1320 RETURN 
3000 REM RELOGIO 

3010 PRINT RT 3,26; CHR$ (28+H);" 

3020 PRINT CHR$ INT (H/10+28); 
3O30 PRINT CHR$ (M-10+INT (M/10) 

+ 28) 

3040 RETURN 
3200 REM PRUSR 
3210 RETURN 
3300 REM URRO 

3310 FOR 1=1 TO 3 _ 

3320 PRINT RT 13,25; '‘■S335B** 

3330 GOSUB 3200 

3340 PRINT RT 13,25; ** URRO ~ 

3350 GOSUB 3200 

3360 NEXT I 

3370 PRINT RT 13,26;" 

3380 RETURN 

4000 5RUE ** DRRGRH'* 

4010 GOTO 100 O 


28 MICROHOBBY 
















CURSO DE E®hDE 



aula 11 

Sub-rotinas 



Piazzi — Rossini 


Quando uma conseqüência de ins¬ 
truções deve ser repetida diversas ve¬ 
zes num programa, ela pode ser escri¬ 
ta apenas uma vez como se fôsse um 
pequeno programa reparado. Este pe¬ 
queno programa deve ser "acessado" 
ou "chamado" pela key-word GOSUB 


(tecla H) e deve obrigatoriamente ter¬ 
minar com uma key-word, que faz com 
que o programa volte a linha logo após 
o GOSUB; esta key-word é RETURN 
(tecla Y). A esta seqüência de instru¬ 
ções chamamos sub-rotina. Repare no 
seguinte programa: 


Note que nas linhas 30, 80, 120, 
160 e 200 "chamamos" a mesma se¬ 
qüência de instruções (sub-rotina) que 
estão nas linhas 280 e 290, terminando 
com um RETURN. Assim, ao chegar 
na linha 30, o TK passa às linhas 280, 
290 e 300 e volta para a linha 40; ao 
chegar na linha 80, ele vai novamente 
para as linhas 280, 290 e 300 mas vol¬ 
ta agora para a linha 90. E assim por 
diante! 

As sub-rotinas têm um símbolo 
especial para uso em diagramas de blo¬ 
co; veremos isto logo mais nesta mes¬ 
ma aula. 

Zapplenum — A Key-Word REM 

À medida que os programas se 
tornam mais complicados, seria útil 
que pudéssemos colocar alguns "co¬ 
mentários" junto à listagem para es¬ 
clarecer melhor os detalhes. Além dis¬ 
so, seria bom se pudéssemos dar no¬ 
mes aos programas. Para isto temos a 
palavra chave REM (tecla E) que não 
executa nada; apenas permite a inser¬ 
ção de comentários nos programas. 

Faremos agora um pequeno "jo¬ 
go" que demonstra a utilização de mui¬ 
tos comandos e estruturas do BASIC, 
inclusive um truque novo com relação 
ao INKEY$'; vejamos: 


u 
u > 

> z 


u ? H 

U > ? H 
V > R 7 H 
V > z >] -' (3 
u > z rn 

V > Z ** V. ? í4 
U > Z * ffiJSH.? H 

z 


1© SI. ou 

ao LET C = 1 

30 GOSUB aco 

4- O POP P = 1 TO 11 

50 PRINT RT ia-P ,P+S;CHR$ X 

GO NEXT P 

70 FOR N- 1 TO 11 STEP 2 
60 GOSUB 260 
90 POR P=1 TO 12-N 
100 PRINT RT -1+P+N,15+P;CHR$ X 
110 NEXT P 
12© GOSUB 260 
130 F CR P=1 TO 12—N 

14-0 PRINT RT 10+P.2B-P-N; CHR$ X 

150 NEXT P 

160 GOSUB 200 

170 FOR P-l TO 11—N 

180 PRINT RT 23-P-N, 17—P; CHR$ X 

190 NEXT P 

200 GOSUB 280 

210 FOR P=1 TO 11—N 

220 PRINT RT 13-P,54P + N; CHR$ X 

230 NEXT P 

24-0 NEXT N 

250 LET C-Ci (-1) 

250 LET X = 0 
270 GOTO 30 

280 IF C = 1 THEN LET X = l4-INT í 12 

7 f-RND ) 

290 IF X >G3 THEN LET X=X + 64- 
300 RETÜFN 


. fà tí aja ^ Vi, 

' EL L 4 H J X u 

ca li 4 h x « 

E -,WoV a a 

p o x 8 


S *1 > u x 8 
GLP , x a 

w 
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f 1 RcM í»Jfl2Zr-R055INI \ 

1» REM ZAPFLtfNUM > 

20 6LOU 
30 RHMD 

4-0 RRiNT "C‘UANT05 NUMEROS ?" 

30 INPUT » 

60 PR1NT “TEHPO EM ZUTUS 
70 INPUT T 

60 PRIWT *'DIFICULDADE (0,1,8)*? 

90 INPUT D 
IDO CL5 
104- LET X = 1D 

ÍOÕ LET Y=X 

110 LET 60-0 

115 LET 5-50 

120 PRINT •*5CORE **; S; TftB 12; "ZR 
PPLENUM" 

125 REM INICIO DO JOGO 
130 FOR .1 = 1 TO N 
140 LET A = IMT (21+RND) + 1 
150 LET 0=1NT (31#WND) 

160 PRINT AT P,B;I 
170 FOR J*1 TO T-D 41 
160 PRINT RT Y,x;"D" 

190 PRINT RT Y , X ; 1 ' " 

200 LET X^X-t C INKEY $ = **©’• ) — < INKEY 

210 LET Y =Y — í INKEY $ = " 7 " ) + (INKEY 

220 IF X <3 THEN LET X = 31 
233 IF X > 31 THEN LET X = 1 
240 IF Y<0 THEN LET Y=21 
250 IF Y >21 THEN LET Y = 1 
260 PRINT RT 0,12; 

270 IF X=B RN D Y=R THEN GUI 
50 

260 PRINT RT 0,12;"BEATLES 
290 NEXT J 
300 NEXT I 
31Q CL5 

320 PRINT PT 10,10;"FIM DO JOGO 


JSUB 3 


330 IF S>50 THEN FRINT "MUITO B 
EM ... " 

34 0 ST OP 

353 LET 5=6+I 

360 PRINT RT 0,5,5 

370 FOR K = 1 TO 15 

360 PRIWT RT 3,24; "NHOC. . . " 

390 ORÍNT RT O , 24; "EiSjSSIea)»" 

400 NEXT K 
4 10 PRINT RT 0,24; ** 

420 LET J=T-n*IiS 
\ 430 RETURN * J 

0 TK gera números em posições 
aleatórias da tela que devem ser "co¬ 
midos" por você (■) antes que apare¬ 
ça algum novo número; assim, por 
exemplo, se você estiver perseguindo 
o número 4 e, antes de alcançá-lo, apa¬ 
rece o número 5 na tela, não adianta 


mais "corrier" o número 4 pois seu 
SCORE não será alterado. Quanto 
maior for o número, menor o tempo 
que você terá para "comê-lo", em 
contrapartida, mais você ganha se 
conseguir! Se for gerado um número 
com dois algarismos, você deve "co¬ 
mer" o mais significativo (Por quê?). 

Brinque então um pouco com ele 
usando para começar, dez números, 
tempo 18 ZUTUS e nível 1 de dificul¬ 
dade. 0 tempo é contato numa unida¬ 
de qualquer (ZUTUS = Zapple Uni¬ 
versal Time Unity) pois a relação com 
as unidades convencionais não é tri¬ 
vial. Neste programa é interessante sa¬ 
lientar as linhas 200 e 210: quando 
aparece mais do que uma igualdade 
(e/ou desigualdade) numa expressão 
matemática, apenas a primeira, con¬ 
tando da esquerda para a direita, é 
considerada como tal. As demais, são 
consideradas como parte de uma afir¬ 
mação lógica que pode ser verdadeira 
ou falsa: se verdadeira, produz resul¬ 
tado 1 e, se falsa, produz resultado ze¬ 
ro. Assim, na linha 200, se no instante 
em que o TK estiver executando a ins¬ 
trução, a tecla 8 estiver pressionada 
( d ), a primeira afirmação é verda¬ 
deira e a segunda é falsa; assim tere¬ 
mos: 



200 LET X=X+l-0 

Note que este tipo de estrutura, 
permite o uso das operações lógicas 
AND, OR e NOT; assim, por exemplo, 
seria válido escrever: 

LET H=H+CINKEY*<>“O" RND 1=5) 

OU 


LET P = P-S*(A<=3 OR K=A+B) 

Para entender melhor, procure fa¬ 
zer alguns comandos diretos do tipo: 

\ 

PRINT (6>10) 

PRINT (3=3) 

PRINT (NOT í2 <1) ) 

PRINT 40 T G 

PRINT (9=9 RND 7>5) 

PRINT (3<4 OR 4<3) 

V___ J 

Quanto ao resto do programa, 
acreditamos que você possa entendê- 
lo sem dificuldades se dedicar um pou¬ 
quinho de tempo sobre sua lógica. No¬ 
te os detalhes, como o "pisca-pisca" 
das palavras BEATLES e NHOC . . . 
Note também que a sub-rotina utiliza¬ 
da não precisaria necessariamente ser 
uma sub-rotina; bastaria fazer GOTO 
350 ao invés de GOSUB (na linha 270) 
e GOTO 280 ao invés de RETURN (na 
linha 430). Para facilitar seu raciocínio, 
iremos apresentar o fluxograma do 
programa. 

Note o símbolo utilizado para re¬ 
presentar "chamadas" de sub-rotinas 

Q — I 

e 

\z 

para iniciar sub-rotinas . Costuma-se 
associar um nome à sub-rotina o qual 
é colocado na parte superior do símbo¬ 
lo e, na parte inferior, colocam-se as 
variáveis do programa principal que se¬ 
rão utilizadas pela sub-rotina. Você sa¬ 
beria explicar para que serve a instru¬ 
ção da linha 420? 

EXERCÍCIOS 


1. Faça um programa capaz de ler 
dois números inteiros e calcular seu 
M.D.C. (Máximo Divisor Comum) e 
M.M.C. (Mínimo Múltiplo Comum). 

2. Elabore um programa capaz de 
"ler" duas matrizes e, se possível, de¬ 
pendendo da compatibilidade de di¬ 
mensões, calcule o produto das mes¬ 
mas. 

3. Faça um programa que gere na 
tela a série de Fibonacci: 

0 1 1 2 3 5 8 13 21 . 

4. Tente simular a rotação de um 

objeto na tela. O 
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RESPOSTAS DO 
CURSO DE BASIC 

aula 10 


EXERC 1 
75 PLÜ7 1,21 


EXER 

. 2 ÍA E B> 


10 

PR ST 


20 

FOR X«© TO 63 


3© 

LET V =ABS ( 4-0 *SIN 

X) 

4-Q 

PLOT X,Y 


50 

PLDT X;© 


60 

NEXT X 


5 

PRINT "INTRODUZA “ 


6 

INPUT D 


7 

CLS 


1© 

FR5T 


20 

FOR X=© TO 83 


30 

LET Y=iEXP ( -DírX) ) 

*AB5 (4-©** 

SIN X) 


4-8 

PLOT X,Y 


5© 

PLOT x^e 


60 

NEXT X 



EXERC. 3 


i© PRINT "ENTRE COM fiNGÜLO EM 
GRRUS *' 

2© INPUT G 

30 LET P=(PI*G)/180 

4-© PRINT 

50 PRINT G; GRRUS = ";R; n RADL 

RNOS" 

60 PRINT 

70 PRINT “ENTRE COM R FUNCRQ L 
ESEJfiDR ÍDI-GITE SHIFT FUNCTION 
E FUNCRO MR —TEM ATICft)“ 

80 INPUT C$ 

9© LET T$=C$+5TR$ G 
100 LET C$=C$+5TR$i R 
li© PRINT 

120 PRINT T$;“;URL C$ 


EXERC. 4- 


10 PRINT “INTRODUZA UM UfiLOR 1 ' 
20 PRINT 
30 INPUT U 

4-0 LET X= ÍLN U) /LN 10 
50 PRINT “SEU LOGARITMO NR BAL 

E 10 E" : “ 

60 PRINT 

70 PRINT “LOG “;U;“ = “;X 

80 PRINT “ 10“ 


EXERC 

: . 5 



18 

PRINT 

"yflMOS CflLCULRR O £>!£■ 

TflNCIfl ENTREO NflUIO E O 

FAROL«“ 

20 

PRINT 

"ENTRE COM R 

RLTURP I 

O FAROL: 



38 

INPUT 

H 


4-8 

PRINT 

H 


5© 

PR IMT 



68 

PRINT 

“fiGGRR ENTRE 

COM O RH 

GULQ 

QUE R 

LUZ EMITIDA 

FORMA CO 

M O 

FAROL 

íEM GRRUS) 


78 

INPUT 

R 


88 

LET P.= 

íPIiR) /T3Q 


98 

LET D = 

(TRN R> *H 


10© 

PRINT 

.. ; “DISTfiNCIR = •*; D 


5 5LOU 
10 LET M=21 
28 LET N=31 
30 LET Z=2 


4-8 

FOR N=N TO 

N 

♦ 

2 

STEP 

SGM 

Z 

50 

68 

78 

PLOT N,M 
NEXT N 

FOR M=M TO 

M-fZ 

STEP 

SGN 

z 


88 PLDT N,M 
90 NEXT M 

95 LET Z=Z+S6N Z-*2 
108 LET Z=~Z 
110 GOTO 4-0 
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Prof. Wilson José Tucci — Coordenador de Projetos Especiais da Escola Experimental Pueri Domus. 



Parte I 


Você acredita em discos voado¬ 
res? Bem, quer você acredite ou não, 
poderá se divertir com eles nesse jogo 
simples e interessante, que introduz 
mais algumas técnicas úteis para seus 
próprios jogos. 

Neste jogo, feito com os gráficos 
de baixa resolução do Apple, você tem 
uma base de canhões e tem como ob¬ 
jetivo, destruir os invasores marcianos 
(ou de onde você quiser que eles se¬ 
jam). 

Consideremos os problemas en¬ 
volvidos num jogo desse tipo; o algo¬ 
ritmo geral para tal jogo pode ser as¬ 
sim escrito: 

1. Inicializar o placar, que vai mar¬ 
car quantos discos já passaram, quan¬ 
tos você acertou e outras informações. 

2. Desenhar o canhão. 

3. Desenhar o disco (de preferên¬ 
cia com uma cor diferente da do ca¬ 
nhão). 

4. Ver se o jogador atirou. 

5. Se atirou, então devemos: 

5.1. avançar o tiro e o disco. 

5.2. verificar se o tiro acertou o disco. 

Se acertou, devemos fazer o dis¬ 
co cair. Se não acertou, voltamos pa¬ 
ra 5.1 enquanto o disco não fugir. 

6. Se não atirou, devemos avan¬ 
çar o disco e voltar ao passo 4 enquan¬ 
to o disco não fugir. 

7. Atualizar o placar e voltar ao 
passo 2. 

Além da animação visual, um jo¬ 
go deve ter também animação musical 
(barulho). Todo barulho no Apple é fei¬ 
to referenciando-se à posição de me¬ 
mória — 16336 (hexadecimal C030 pa¬ 
ra aqueles com 16 dedos). Essa refe¬ 
rência se faz com um PEEK (— 16336), 
a partir do Applesoft, ou com uma 
LDA $ C03O ou ST A $C03O a partir de 
Linguagem de Máquina. Tais coman¬ 
dos produzem um "click" no alto fa¬ 
lante do Apple, e todos os sons gera¬ 
dos são seqüências de "clicks". Exis¬ 
tem pelo menos três maneiras de se fa¬ 
zer barulho no Apple: 

1. Fazer em BASIC comandos 
que executem vários PEEK (— 16336). 

2. Executar u m PR/NT CHR$ (7), 
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ou seja CTRL-G, que automaticamen¬ 
te, executa uma série de referências à 
posição — 16336. 

3. Fazer uma sub-rotina em Lin¬ 
guagem de Máquina que executa uma 
série deZ.D/4 $C030 ou STÀ $C030, e. 
chamar essa sub-rotina através do co¬ 
mando BASIC, CALL adr, onde adr é 
a posição da memória onde começa a 
sub-rotina. 


O programa 


executa a sub-rotina que 
carrega o programa em Linguagem de 
Máquina que faz o barulho. A seguin¬ 
te listagem é do programa carregado, a 
partir da posição 771 (hexadecimal 
303). 


8383- 

fiO 38 C0 

LOR 

IC030 

8386- 

88 

OEY 


8307- 

00 84 

BNE 

$8380 

8389- 

C6 87 

OEC 

$87 

030B- 

F8 98 

BE6 

$8315 

8300- 

Cfi 

OEX 


038E- 

00 F6 

BNE 

$0386 

0310- 

86 06 

LOX 

$86 

8312- 

4C 03 03 

JHP 

$0303 

0315- 

68 

RTS 



É comum colocar rotinas para car¬ 
regar programas em Linguagem de 
Máquina diretamente em BASIC, isso 
evita que o usuário tenha que digitar 
dois programas diferentes, um em Lin¬ 
guagem de Máquina e outro em BA¬ 
SIC. É fácil perceber como isto é feito, 
analisando as linhas 980 e 990: um 
FOR NEXT; "POKEia" os valores de¬ 
cimais dos bytes do programa em Lin¬ 
guagem de Máquina. Se você quiser 
ver o programa como na listagem aci¬ 
ma, basta fazer CALL — 151 (isso cha¬ 
ma o monitor) e depois, quando apare¬ 
cer o asterisco, digite 303L, isso vai lis¬ 
tar o programa em Linguagem de Má¬ 


quina armazenado a partir do byte 303 
(hexadecimal). Após a listagem do pro¬ 
grama, vão aparecer mais alguns co¬ 
mandos, usualmente BRK. Eles não fa¬ 
zem parte do programa, estão lá por 
que é assim que o APPLE "acorda". 
Em todo caso, não serão executados, 
pois o programa acaba no byte 315, 
RTS f que equivale ao comando BASIC 
RETURN (lembre-se que CALL é uma 
chamada de sub-rotina, como GO- 
SUB). 

Unha 12 Qéo número da posição da 
memória que lê o teclado; o valor des- 







































































Disco Voador 


O PROGRAMA 



se byte é o código ASCII da tecla pres¬ 
sionada (serve para ler o teclado sem 
aquele cursor do GET, BU, como já 
discutido, é a posição que faz tocar o 
alto-falante, e G$ é o sininho. 

Linhas 140 e 150: preparam o placar 
nas últimas duas linhas da página de 
texto (as linhas 1 a 20 estão ocupadas 
pelo gráfico de baixa resolução). 

Linha 16 completa o placar (através 
da sub-rotina 580), inicializa uma série 
de parâmetros para o disco, incluindo 
uma cor aleatória (CD), e a posição 
vertical do disco, também aleatória, 
através da sub-rotina 940. 


Linhas 170e 180: mostram a única ins¬ 
trução importante desse jogo. Para ati¬ 
rar uma bala você deve apertar o «es¬ 
paço», e só pode atirar uma bala por 
disco. Contudo, após atirar, você pode 
parar a bala apertando qualquer outra 
tecla e, para fazer a bala voltar a an¬ 
dar, basta apertar novamente qualquer 
tecla. 

Linhas210 e220: desenham o canhão, 
com uma cor aleatória. Repare que a 
comparação na linha 210 garante que a 
cor do canhão será diferente da cor do 
disco. 

O 


0 REH «POR DENTRO DO APPLE 

DISCO VOADOR 
100 GOSUB 980 
110 HOME : INVERSE 
120 6 = - 16384:BU = - 16336:Gt 
= CHR$ (7) 

136 GR 

148 ÜTAB 23: HTAB 1: PRINT *:DIS 
COS::':: HTAB 11: PRINT *::T 
IROS::: HTAB 21: PRINT ”:A 
CERTOS: 1 :: HTAB 31: PRINT *: 

150 VTAB 24: HTAB 1: PRINT “:::: 

HTAB 11: PRINT '::: 

HTAB 21: PRINT ":: 

HTA8 31: PRINT 

:: 805;::: * í 

160 GOSUB 580:SL = 35:XF = 1:YY = 

0:HR = 8:CD = INT ( RND (1) 

* 14) t 1: GOSUB 948 
178 VTAB 21: HTAB 1 
188 PRINT *<ESPAÇO) ATIRA» OUTRA 
PARA A BALA* 

198 GOSUB 948 
288 REH ===CRNHA0=== 

218 CC = INT ( RND (1) * 14) t 1 
: IF CC = CD THEH 218 
228 COLOR- CC: HLIN 22»26 AT 39: 

HLIH 23,25 AT 38: VLIH 36,3 
7 AT 24 

588 AD = AD t 1: GOSUB 998 

598 HR = 0: RETURN 

940 YF = Y1:Y1 = IHT ( RHD (1) * 

29) t 18: RETURN 

958 PQKE 6,188 - (3 * N): POKE 7 
,5 

968 CALL 771 
970 RETURN 

988 FOR I = 771 TO 789: REftD A: POKE 
I,A: HEXT : RETURH 
998 DATA 173,48,192,136,288,4,1 
98,7,248,8,202,288,246,166,6 
,76,3,3,96 

V_ ) 
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aula 10 





Os Saltos Condicionais 
Baseados nos FLAGS 

As instruções, JP e JR, como fo¬ 
ram usadas na aula passada, são cha¬ 
madas de saltos INCONDICIONAIS. 
Assim, como no BASIC a instrução 
GOTO ganha bastante poder, se usada 
juntamente com a instrução IF/THEN; 
temos em Linguagem de Máquina algo 
equivalente que são os saltos CONDI¬ 
CIONAIS, ou seja, "Salte se ocorrer 
dada condição". 

Há quatro condições que podem 
ser testadas usando JR e'8 usando JP. 
Duas delas se baseiam no CARRY: 
salte se o CARRY for 1 e salte se o 
CARRY for zero: 


JR C dado ('38' + 1 byte para 
dado) 

(salte relativo se CARRY = 1) 
JR NC dado ('30' + 1 byte para 
dado) 

(salte relativo se CARRY = 0 NC 
= NO CARRY) 

JP C endereço ('DA' + 2 bytes 
para endereço) 

JP NC endereço ('D2' + 2 bytes 
para endereço) 


Para poder entender as outras 
condições, vamos antes estudar um 
pouco mais o registro dos flags (F) 
que, como sabemos, tem 8 bits, sendo 


um deles para indicar o flag de CARRY. 
Vamos agora ver mais alguns FLAGS. 

Temos um flag de paridade (flag 
P) que assinala se a quantidade de uns 
ou zeros do ACUMULADOR é par 
(EVEN) ou ímpar (ODD) após efetua¬ 
da uma operação aritmética ou lógi¬ 
ca; assim temos: 


JP PE endereço CEA' + 2 bytes 
para endereço) (JUMP if PARITY 
is EVEN) JP PO endereço C32' + 
2 bytes para endereço) (JUMP 
if PARITY is ODD) 


Além disto, este mesmo flag ser¬ 
ve para testar se houve OVERFLOW 
(flag 0) que seria espécie de CARRY 
para quando trabalhamos com núme¬ 
ros positivos e negativos. Entretanto, 
ela é apenas um flag de ALARME, 
não permitindo identificar qual o resul¬ 
tado real (como era possível com o 
CARRY usando ADC ou SBC). De fa¬ 
to, quando calculamos usando a con¬ 
venção de números negativos, podem 
haver "trocas" acidentais de sinais; 
por exemplo, se você somar '4A' que 
é positivo com '44' que também é posi¬ 
tivo, você obtém '8E' que é negativo, 
pois agora o maior número positivo 
representável em 1 byte é 127 ('7F'). 
Note que você terá OVERFLOW mas 


Flavio Rossini 

não CARRY = 1 pois, usando a con¬ 
venção de números positivos esta so¬ 
ma produz CARRY = 0. Desta forma 
este FLAG funciona de maneira que JP 
PE equivale a JUMP se houve OVER¬ 
FLOW e JP PO equivale a JUMP se 
não houver OVERFLOW. Não existe 
salto relativo usando este flag como 
condição. Note que por ser um flag 
DUPLO, algumas instruções afetam o 
flag como sendo P (paridade) e, outras 
como O (OVERFLOW). 

Outro flag é o flag Z que indica se 
o resultado de uma operação é zero; 
assim temos: 

JR Z dado ('28' + 1 byte para 
dado) 

(jump re/ative ifzero) 

JR NZ dado ('20' + 1 byte para 
dado) 

(jump relative ifnot zero! 

JP Z endereço ('CA' + 2 bytes 
para endereço) 

JP NZ endereço ('C2' + 2 bytes 
para endereço) 

O último flag que iremos estudar 
nesta altura do curso é o flag de sinal 
(S) que também só tem sentido em ser 
usado quando utilizamos a convenção 
de números negativos; desta forma, 
você pode saltar dependendo se o 
resultado de uma operação é nega¬ 
tivo ou positivo: 
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JP M endereço (TA' + 2 bytes 
para endereço) 

(jump if minus) 

JP P endereço (T2' + 2 bytes 
para endereço) 

(jump if plus) 


Também não existe salto relativo 
para esta condição. 

Obviamente as instruções de 
JUMP não afetam nenhum FLAG; mas 
note que agora não podemos nos preo¬ 
cupar somente com o flag de CARRY. 
Para cada instrução, devemos saber 
PRECISAMENTE quais flags são afe¬ 
tados; por exemplo, as instruções de 
LD não afetam nenhum flag e as ins¬ 
truções de ADD e SUB (ADC e SBC 
também afetam TODOS os flags. Pro¬ 
curaremos, na medida do possível, ex¬ 
plicitar os flags afetados sempre que 
falamos em alguma instrução. Note 
que este curso é um resumo do meu 
livro: Introdução à Linguagem de Má¬ 
quina para o TK — Assembly Z-80 
"vol I ; nele você poderá encontrar 
no apêndice II, todas as instruções e 
o efeito de cada uma sobre FLAGS. 
Além disso, vários exercícios são apre¬ 
sentados. 


Apenas para complementar as ins¬ 
truções com números negativos, va¬ 
mos apresentar a instrução NEG que 
"muda o sinal" do número que está 
no acumulador; seu código é 'ED44'. 

Como você deve ter notado ante¬ 
riormente nas instruções de salto con¬ 
dicional, nós sempre sublinhamos a 
fras e\ RESULTADO DE UMA OPE¬ 
RAÇÃO. De fato, os JUMPs condi¬ 
cionais funcionam se antes houve ope¬ 
ração que AFETOU os flags adequa¬ 
damente. Por exemplo, NÃO adianta 
carregar o acumulador com o conteú¬ 
do de algum registro ou memória e, 
em seguida querer usar um JUMP con¬ 
dicional baseado no conteúdo do acu¬ 
mulador! Isto simplesmente utilizará 
para testes, os FLAGS da ÚLTIMA 
OPERAÇÃO que foi EFETUADA antes 
deste carregamento. Logo, se você 
quer "saltar" para algum ponto 
(30020), baseado por exemplo no fato 
de que uma determinada memória 
(30010) contenha o número zero, NÃO 
adianta fazer o seguinte: 

LD A,30010 (não afeta nenhum 
flag) 

JP Z,30120 (testa o flag "gerado" 
na última operação) 


Isto é válido para todos os saltos 
condicionais. Para poder testar condi¬ 
ções nesses casos é necessária então, 
uma nova instrução chamada CP 
(COMPARE) que compara o conteúdo 
do ACUMULADOR com qualquer ou¬ 
tro registro, com um dado número 
(entre 0 e 255 ou entre — 128 e 127) 
ou memória endereçada por HL; ela 
funciona da seguinte maneira: sem 
alterar nenhum registro, ela verifica 
quanto SERIA o resultado do ACUMU¬ 
LADOR MENOS o registro ou dado 
comparado, atualizando os flags con¬ 
venientemente; assim, se o número 
comparado por igual ao computador, 
o flag de zero é setado (colocado em 
1), se for menor do que o acumulador 
o flag de sinal indicará positivo (0) e, se 
for maior, negativo (1). Isto aliado às 
instruções JP ou JR equivale em BA¬ 
SIC a fazer: 


IF 


/ \ 

A = B 

< A > B > 

A < B 


THEN GOTOXXXX. 


Repare que, para testar se o acumu¬ 
lador é "maior ou igual" ou "menor ou 
igual" dois flags devem ser testados! 
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Assim, para que o exemplo ante¬ 
rior funcionasse, deveríamos fazer o 
que mostramos na tabela I. 

Obviamente, a instrução CP afeta 
TODOS os flags; veja os códigos na 
tabela II. 

Completando o ANTI-SCROLL: 
LOOPS em linguagem de máquina 

Vamos a título de exemplo, ou se¬ 
ja, vamos fazer em Linguagem de Má¬ 
quina o que a instrução de PRINT 32 
brancos fazia: para isto é necessário 
notar que as instruções de DEC afe¬ 
tam o flag de zero (Z) se ao decre- 
mentar dado registro ou memória, o 
resultado der zero. Isto é indicado no 
flag Z! Acompanhe na tabela III. 

Como você pode verificar, este 
procedimento coloca o número zero, 
que é o código de "espaço em branco" 
para TK, nas memórias que correspon¬ 
de à primeira linha da tela; após o 
LDDR o par HL está novamente indi¬ 
cando o começo da tela; basta somar 
32 para acharmos o endereço do últi¬ 
mo caractere da primeira linha; ao car¬ 
regar DE com 32 teremos D = W e 
E = '20' ('20' = 32) e poderemos en¬ 
tão usar o registro E como "contador" 
para colocar os 32 "brancos" necessá¬ 
rios na memória! Ao colocar o último 
"branco", DEC E fará E = W colo¬ 
cando o flag Z em 1 e o programa 
não mais saltará para o endereço 
30022, voltando então para o BASIC. 
Note que o par BC continua '0000'. 
Assim, como você pode notar, fizemos 
um loop com Linguagem de Máqui¬ 
na utilizando a instrução DEC e usan¬ 
do salto condicional baseado no FLAG 
de zero, gerado! 

Vamos testar o programa: 

1005 3LOW 

1010 FOR 1=1 TO 80 
1020 RftND U5R 30.000 
1030 PRINT RT0,O;TRBI; 
1G10 NEXT X 

(Obs.: teste a sub-rotina em Lingua¬ 
gem de Máquina usando JP NZ 30022 
e, depois, JR NZ — 6) 

Note que não nos interessa a "saí¬ 
da" da sub-rotina de Linguagem de 
Máquina (ou seja, par BC), mas preci¬ 
samos chamá-la para que ela seja exe¬ 
cutada; utilizamos então a instrução 
RAND que, no caso, não faz nada, 
apenas permite que o cursor mude pa¬ 
ra F após uma Key-word para colocar 
USR pois, sem isso, a linha não é acei¬ 
ta no programa BASIC. 

Existe em Linguagem de Máquina, 
uma instrução especial que facilita exe¬ 
cutar LOOPS: 


DJNZ dado '10' + 1 byte para o 

dado 

Ela usa o registro B como conta¬ 
dor e executa um salto relativo en¬ 
quanto que B não atinge zero: 

Assim, o final do programa ante¬ 
rior poderia ser como mostra a tabela 
IV. 

Teste então esta terceira possibili¬ 
dade. 

Para finalizar os saltos condicio¬ 
nais, vamos aprender um "truque" que 
nos permite usar JR em vez de JP, 
quando queremos comparar um nú¬ 
mero com *o acumulador e saber se o 
mesmo é maior ou menor: se o nú¬ 
mero a ser comparado for MAIOR, a 
diferença do acumulador (supondo-o 
positivo) menos o número resulta ne¬ 
gativa e, portanto, gera CARRY = 
1. Logo, apesar de não existir a ins¬ 
trução JR M você pode usar JR C. 


Obviamente, a instrução, inexistente , 
JR P, pode ser simulada por JR NC. 
Naturalmente isto só funciona se ado¬ 
tarmos a convenção de números posi¬ 
tivos ou, se adotarmos a outra, garan¬ 
tirmos que no acumulador esteja um 
número positivo. Perceba que a instru¬ 
ção JR NC considera 0 como número 
positivo (o mesmo é válido para JP 
NC ou JP P.) 

O Stack Pointer: 

Sub-rotinas 

Mesmo em Linguagem de Máqui¬ 
na podemos ter sub-rotinas. Temos 
então uma instrução equivalente ao 
GOSUB que seria: CALL-endereço 
('CD' -I- 2 bytes para endereço); para 
retornar ao programa principal, temos 
a já famosa RET ('C9'). Assim como 
em BASIC seria possível uma estrutura 
do tipo JF condição THEN GOSUBXX 


LD 

A, 30010 


; Coloque em A o conteúdo da memória 30010 

CP 

0 

'FE00' 

; Compare A com o número 0; se for igual, flag Z = 1, caso 
contrário, flag Z = 0 

ZP 

Z 30120 


; pule papa 30120 se o flag Z = 1, caso contrário, prossiga 
(JP M seria usado para testar se A 0 e JP P para testar 
se A 0 


Tabela I 


INSTRUÇÃO 

CÓDIGO 

CP dado FE' 

CP (HL) 'BE' 

CP A 'BF' 

CP B 'B8' 

CP C 'B9' 

CP D 'BA' 

CP E 'BB' 

CP H 'BC' 

CP L 'BD' 

+ 1 byte para o dado 

(você vê alguma utilidade para esta 
introdução?) 


Tabela II 


30000 

LD 

BC, 726 

'01D602' 


30003 

LD 

HU06396) 

'2A0640' 


30006 

ADD 

HLBC 

'09' 


30007 

LD 

D,H 

'54' 


30008 

LD 

E,L 

'5D' 


30009 

LD 

BC, 693 

'01B502' 


30012 

LD 

HU16396) 

'2A0C40' 


30015 

ADD 

HLBC 

'09' 


30016 

LDDR 


EDB8' 


30018 

LD 

DE,32 

'112000' 

; carrega DE com 32 

30021 

AD 

HLDE 

'19' 

; coloca em HL o endereço da últi¬ 
ma posição da primeira linha da 
tela 

30022 

LD 

(HL),0 

'3600' 

; coloca "espaços em branco" 
(código 0) na posição indicada 
por HL 

30024 

DEC 

HL 

'2B' 

; decrementa HL 

30025 

DEC 

E 

'1D' 

; decrementa E que é utilizado co¬ 





mo contador 

30026 

JP 

NZ 30022 

C24675' 



ou JR 

NZ -6 

'20FA' 

; se E não for zero volte para colo¬ 
car outro espaço em branco 

30029 

RET 


C9' 



Tabela III 
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XX também em Linguagem de Máqui¬ 
na existem instruções para chamar 
DICIONALMENTE; como mostra a ta¬ 
bela V. 

E como era de se esperar, pode¬ 
mos também fazer RET condicional¬ 
mente: 


INSTRUÇÃO 

CÓDIGO 

RETZ 

C8' 

RET NZ 

CO 

RETC 

D8' 

RET NC 

DO 

RT PE 

'E8' 

RET PO 

TO 

RET M 

'F8' 

RET P 

TO 


Como funcionam estas instru¬ 
ções? Ao fazer um CALL o conteúdo 
do contador de programa que indica 
a próxima instrução (PC) é colocado 
no topo da pilha indicada pelo SP (se¬ 
ria como se existisse uma instrução 


PUSH PC) e o contador é então car¬ 
regado com o endereço que está logo 
após o código de CALL que é o ende¬ 
reço onde começa a sub-rotina. Assim 
o computador passa a executar as ins¬ 
truções a partir desse endereço e, ao 
encontrar uma instrução de RET, o to¬ 
po da pilha é recolocado no PC (seria 
como se fosse um POP PC) e por¬ 
tanto, o programa volta para a próxima 
instruçãoapós o CALL. 

Cuidados devem ser tomados 
sempre que, durante uma sub-rotina, 
mexermos no "topo da pilha", para 
evitar que o programa, ao encontrar 
um RET, volte para posição não dese¬ 
jável, isto porque o endereço de retor¬ 
no da sub-rotina é colocado no topo da 
pilha pela instrução CALL. 

Assim, se por ventura SP for alte¬ 
rado durante uma sub-rotina, devere¬ 
mos GARANTIR que antes da instru¬ 
ção RET, seu valor seja igual ao seu 


30022 

LD 

B,E, 

' 43 ' 

; coloca o contador em B 

30023 

LD 

(HL), 0 

3600' 


30025 

DEC 

HL 

'2B' 


30026 

DJNZ 

-5 

'10FB' 

; decrementa o contador 

B e salta de volta se 
nâo for zero 

30028 

RET 


C9' 



Tabela IV 


INSTRUÇÃO 

CÓDIGO 

CALL Z endereço 

CALL NZ endereço 

CALL Z endereço 

CALL NC endereço 

CALL PE endereço 

CALL PO endereço 

CALL M endereço 

'CC' + + 2 bytes para endereço 
'C4' + 2 bytes para endereço 
'DC' + 2 bytes para endereço 
'D4' + 2 bytes para endereço 

TC' + 2 bytes para endereço 

T4' + 2 bytes para endereço 

TC' + 2 bytes para endereço 



CALL P endereço 

T4' + 2 bytes para endereço 


Tabela V 


30100 

PUSH 

BC 

; "salva” B e C 

30101 

LD 

B,E 

; coloca um dos operandos no contador B 

30102 

PUSH 

DE 

; "salva" D e E 

30103 

LD 

D,0 

; coloca o outro operando no par DE 

30105 

LD 

E,A 


30106 

LD 

HL0 

; coloca 0 no par HL 

30109 

ADD 

HLDE 

; soma o segundo operando 
sucessivamente tantas vezes quantas 
indicar o primeiro operando B 

30110 

DJNZ 

-3 


30112 

POP 

DE 

; reestabelece os valores iniciais dos 
registros 

30113 

POP 

BC 



Tabela VI 


30000 

LD 

A,15 

; carrega operando 

30002 

LD 

E,24 


30004 

CALL 

30100 

; chama sub-rotina de multiplicação 

30007 

LD 

B,H 

; programa a saída 

30008 

LD 

C,L 


30009 

RET 




Tabela VII 


valor no início da mesma. Note que 
esta estrutura permite que haja "sub- 
rotinas dentro de sub-rotinas". Muitas 
vezes ao chamar uma sub-rotina é ne¬ 
cessário "salvar" os conteúdos de re¬ 
gistros de alguns registros, o que pode 
ser feito usando PUSH. Lembre-se 
sempre então de fazer os PO Ps corres¬ 
pondentes (na ordem certa) antes de 
fazer RET. Para exemplificar, vamos 
fazer uma sub-rotina que "multiplica" 
dois números positivos menores que 
256 que estão no acumulador e no 
registro E respectivamente; a sub-ro¬ 
tina deve colocar o resultado no par 
HL sem alterar nenhum outro regis¬ 
tro. Naturalmente, como não temos 
uma instrução de multiplicação, fare¬ 
mos somas sucessivas. Usaremos um 
íoop utilizando a instrução DJNZ que, 
como vimos anteriormente, funciona 
da seguinte maneira: decrementa o 
registro B, se o resultado for diferente 
de zero ela faz um salto relativo (+ 
127 a — 128) para o endereço indica¬ 
do, caso contrário prossegue o progra¬ 
ma. Portanto, o registro B funciona 
como um contador e será alterado na 
sub-rotina, devendo então ser "salvo" 
(PUSH BC). Coloque a sub-rotina a 
partir do endereço 30100 e tente colo¬ 
car você mesmo, os códigos em Lin¬ 
guagem de Máquina que mostramos 
na tabela VI. 

Perceba que os PUSHs e POPs 
permitiram a condição de NÃO alterar 
nenhum outro registro. Veja que o nú¬ 
mero de PUSHs é igual ao número de 
POPs e com isto o valor de SP não é 
modificado, fazendo com que a sub- 
rotina volte para o endereço certo. Va¬ 
mos tentar utilizá-la? Façamos um pro¬ 
grama a partir da memória 30000 que 
multiplique dois números, por exemplo 
15 e 24, usando a sub-rotina mostrada 
na tabela VII. 

Verifique o resultado (que deve 
ser 360) e "rode" o programa usando 
XF no HEXAMEM. Aliás, quando não 
temos nenhum efeito especial de tela 
mas apenas cálculos, é conveniente 
executar os programas em FAST. 

EXERCÍCIOS 


1. Faça um programa que execu¬ 
te um LOOP utilizando a instrução INC. 
Por exemplo, mande escrever na tela 
os primeiros 20 caracteres do TK. Lem¬ 
bre-se que o endereço da primeira po¬ 
sição da tela está indicado nas memó¬ 
rias 16396 e 16397 devendo-se somar 
um. 

(Obs.: você deverá usar a instrução 
CP para verificar o fim do LOOPK 
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2. Faça uma sub-rotina que, por 
subtrações sucessivas, encontre o re¬ 
sultado INTEIRO da divisão de dois nú¬ 
meros positivos que estão no acumu¬ 
lador (dividendo) e registro E (divisor); 
o resultado deverá estar no registro D 
e nenhum outro registro deve ser alte¬ 
rado. A seguir, faça um programa que 
chame essa sub-rotina (veja o exemplo 
da multiplicação). 

3. Faça uma sub-rotina em Lin¬ 
guagem de Máquina que some dois re¬ 
gistros e "detecte" se houve ou não 
CARRY; em caso positivo, ela deve 
colocar o caractere C (código 40 ou 
'28') na tela na primeira coluna da se¬ 
gunda iinha; caso contrário, ela deverá 
colocar o caractere N (código 51 ou 
'33') (Lembre-se de D-FILE). 

4. Você saberia, usando quatro 
instruções colocar o valor de SP nos 
registros B e C? Feito isso, acrescente 
um RET e execute o programa para 
obter o valor de SP na tela. 

5. Você saberia colocar o registro 
F no registro C? Feito isso, "zere" o 
registro B e acrescente um RET, exe¬ 
cutando o programa para obter o valor 
deste registro na tela. 

O 


SERVIÇO TÉCNICO 

VÍDEO • CÂMERA 



• Conserto e Modificação 

de vídeo, TV, games, micros 

• Transcrição de filmes, 
mesmo europeu 

• Venda de aluguel de vídeo, 
fitas, acessórios 

• Instalação de antena 
para vídeo 

antel 

Matriz: Av. Liberdade, 967 Tal. 2794944 S.P. 

Filial Jardins: Al. Min. Rocha Azevedo, 937 
Te!. 282-0772 S. P. 

Filiei Pinheiros: Av. Brig Feria Uma, 1132 loja 36 
Tal. 815-6901 S.P. 


Z 'Dicas 



Apagando 

linhas 
em 
bloco 

Carlos Eduardo R. Salvato 

recer na parte inferior do seu vídeo o 
código 9/70. 

Se isto não acontecer volte à fase 
anterior e redigite os códigos, até você 
conseguir acertar. 

Grave o programa algumas vezes 
e digite RUN 80. 

Digite LIST e veja o que aconte¬ 
ceu: só ficou a parte que nos interessa 
sendo que, o resto já foi apagado, 
usando a própria rotina em linguagem 
de máquina. 


Observação 


A rotina em linguagem de máqui¬ 
na será preservada mesmo que você 
digite NEW, mas a parte em BASIC se¬ 
rá perdida. Toda vez que você for usar 
o apagador de linhas só precisará car¬ 
regar uma vez após ter ligado o com¬ 
putador, mas sempre que você digitar 
NEW terá que digitar o programa da fi¬ 
gura 3. -► 


No número 1 da revista, nós publi¬ 
camos um programa ferramenta cha¬ 
mado RENUMERANDO que apresen¬ 
tava um inconveniente: logo após ser 
usado, você tinha que apagá-lo, linha 
por linha, o que tornava esta tarefa 
muito penosa. 

Neste número nós estamos publi¬ 
cando um programa, quase todo em 
linguagem de máquina, que apaga um 
bloco de linhas por você especificado. 


Digitação 


Como todo programa em lingua¬ 
gem de máquina, você deverá ter um 
pouco de paciência ao digitá-lo. Ape¬ 
sar dele ser curto, todo cuidado é pou¬ 
co. 

Digite a linha 1 REM com 66 pon¬ 
tos e depois o programa da figura 1. 
Digite RUN e comece a entrar com os 
códigos da figura 2. 

Quando você acabar, deverá apa- 


38 MICROHOBBY 
















X REM 


10 FOR ft = 16514- TO 16579 
20 INPUT B 
30 SCROLL 

4-0 PRINT R; B 

50 POKE R,B 

60 NEXT R 

70 STOP 

80 POKE 16389,127 
90 LET L=USR 16568 
100 POKE 32700 * 0 
110 POKE 32701, 0 
120 POKE 32702, 200 
130 POKE 32703., 0 
14-0 LET L=USR 32512 
9986 LET F=32700 

9989 LET L=32702 

9990 PRINT *’RPRGRR DE "j 

9991 INPUT ft 

9992 POKE F,ft—256*INT (R/2S6) 

9993 POKE F+l,INT (0/256) 

9994- PRINT R; " RTE* **; 

9995 INPUT B 

9996 POKE L , B-256* INT (B/256) 

9997 POKE L+1,INT (B/256) 

9998 PRINT B 

9999 LET H=USR 32512 


Figura 1 


16514-. 

. 

.4.2 

16515. 

. 

. 188 

16516. 


. 127 

16517. 

. 

.205 

165IS. 


.216 

16519. 

. 

• 9 

16520. 

. 

.229 

16521. 

• 

.229 

16522. 

. 

• 4-2 
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. 
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.35 

16526. 

. 

.205 

16527. 

. 

.216 

16528. 

. 

.9 

16529. 

. 

.235 

16530. 

. 

.4.2 

16531. 

m 

. 12 

16532. 

. 

.64. 

16533. 

• 

. 167 

16534.. 

. 

.237 

16535. 

. 

.82 

16536. 

. 

.4.8 

16537. 

. 

.4 

16538. 

. 

.237 

16539. 

. 

• 91 

1654.0. 

. 

. 12 

1654.1. 

• 

• 64 

1654.2. 

. 

.4.2 

1654.3. 

. 

• 20 

1654.4.. 

. 

.64. 

1654.5. 

m 

.229 

1654.6 . 


. 167 

16547. 

m 

.237 

1654.8 . 

. 

.82 

16549. 

. 

.229 

16550. 

. 

. 193 

16551. 

. 

.235 

16552. 

. 

• 241 

16553. 

. 

.209 

16554. . 

. 

.24.5 

16555. 

. 

.237 

16556. 

. 

. 176 

16557. 

. 

.235 

16558. 

m. 

.209 

16559. 

. 

. 167 

16560. 

. 

.237 

16561. 

. 

.82 

16562. 

. 

.229 

16563. 


• 193 

16564.. 


.225 

16565. 

. 

. 195 

16566. 

. 

. 173 

16567. 

. 

.9 

16568. 

. 

.33 

16569. 

• 

. 130 

16570. 


.64. 

16571. 


. 17 

16572. 

. 

.0 

16573. 

. 

. 127 

16574.. 

* 

. 1 

16575. 

. 

.54 

16576. 

. 

.0 

16577. 

. 

.237 

16578. 

. 

. 176 

16579. 

» 

.201 


Figura 2 


9988 LET F=32700 

9989 LET L=32702 

9990 PRINT "RPRGRR DE **; 

9991 INPUT R 

9992 POKE F,R-256*INT (ft/256) 

9993 POKE F +1, INT (R/256) 

9994- PRINT R; “ RTE* **: 

9995 INPUT B 

9996 POKE L,B—256*INT (B/256) 

9997 POKSL+l,INT (B/2S6) 

9998 PRINT B 

9999 LET H=USR 32512 


Figura 3 


fompuBel 


Produtos exclusivos para o TK 83, 

TK 85, CP-200, RINGO e compatíveis. 

• Papel e suprimentos para impressora 
2040 da LINHA TIMEX 

• Jogos coloridos para Spectrum e 2068 (72K) 

• Tela verde “p/ TV 12” 


NOVIDADE: “FAÇA SEU TK FALAR!! 

• Sintetizador de voz 

• Sintetizador de som: ruidos de tiros, 
foguetes, Passarinhos, etc. 

• Livros Técnicos, inclusive THE COMPLETE 
TIMEX/SINCLAIR ROM DISASSEMBLY 
e The Ins. And Outs of The TS10000 


Solicite maiores detalhes e um catálogo 
gratuito para Compubel 

Solicite Catálogo 


NOME: 

TEL. 

END.: 

CEP: 

CIDADE: 

ESTADO: 


Travessa Quintino Bocaiuva, 1779 - Tel. (091) 223-6319 
Cep 66000 - Belém - Pará - Brasil 


MANUAIS 

PARATK 

Agora ficou muito mais fácil para você adquirir 
manuais para o TK. Basta assinalar os itens 
desejados, preencher o cupom abaixo e enviá-lo á 
MiCROMEGA. 


□ MANUAL TÉCNICO TK 2000-color 

□ MANUAL DE OPERAÇÕES TK 2000 color 

□ MANUAL DE OPERAÇÕES TK 83 

□ MANUAL DE OPERAÇÕES TK 85 


CrS 16.850.00 
Cr$ 8.880,00 
Cr» 4.850,00 
Cr$ 4.850.00 


Sim, desejo receber os itens assinalados. 


NOME 

END. 

CEP 

CIDADE 

EST. 


Para tanto, anexo a importância de Cr$_ 

□ cheque nominal à MICROMEGA P.M.D. Ltda. 

Banco_□ Vale Postal 


MICROMEGA P.M.D. Ltda. 

Cx. Postal 54096 - CEP 01296 
São Paulo — SP 
CGC 52.275.724/0001-41 
INSCR. EST. 110.862.362 


Data:_/_/. 


Assinatura 

Preços válidos até 31 /06/84 
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Fita do Mês 


MULTIESTOQUE 



Nancy Mitie Ariga 


TK-2000 foi lançado há pouco 
tempo e a Multisoft, paralelamente, de¬ 
senvolveu vários programas para ele: 
Cadastro de clientes, Controle Bancá¬ 
rio, Multiestoque, Multi-invader, Auto¬ 
estrada e Corrida. 

Alguns são aplicativos e outros jo¬ 
gos, porém, todos com versão em fita 
cassete para que o usuário não tenha 
a necessidade de comprar uma uni¬ 
dade de disco para carregá-los. Para 
aqueles que já possuem uma unidade 
de disco, a Multisoft promete que, em 
breve estes programas estarão dispo¬ 
níveis também em disquete. 

Multiestoque 

0 programa Multiestoque foi um 
dos primeiros programas desenvolvi¬ 
dos para o TK 2000, já considerado 
um dos melhores para este compu¬ 
tador. 

É de fácil manuseio, voltado para 
as empresas que necessitam de um 
controle perfeito de seu estoque. 

A fita é acompanhada por um ma¬ 
nual que explica como utilizar o pro¬ 
grama desde a sua carga até a emissão 
de relatório e gravação de um arquivo. 
O manual explica detalhadamente a 
função de todas as opções oferecidas 
pelo programa. No final, um exemplo 
prático é fornecido para que o usuário 


possa praticar a sua operação com um 
arquivo teste sem cometer erros, per¬ 
dendo os dados. 

Projetado para controlar até 850 
itens por arquivo, este programa pos¬ 
sibilita a emissão de relatórios das ope¬ 
rações efetuadas no estoque (se a im¬ 
pressora estiver em ON-LINE), emissão 
da lista de preços, da posição do esto¬ 
que e da lista de itens em posição 
crítica. 

A organização dos registros no ar¬ 
quive é feita em ordem alfabética ba¬ 
seando-se no código do item. 

O programa ainda oferece a pos¬ 
sibilidade de gravar em uma fita cas¬ 
sete o arquivo que está sendo mani¬ 
pulado pelo usuário e depois recuperá- 
lo através de uma leitura na fita casse¬ 
te. Ou seja, o programa pode manipu¬ 
lar um arquivo por vez, mas pode tam¬ 
bém, criar vários arquivos que serão 
gravados em fita cassete e, quando 
necessário, através de uma leitura, re¬ 
cuperar o arquivo desejado. 


Carga do programa 

Digite LOADT "ESTQ" ou LOADT 
para carregar o programa que está 
gravado no modo TK-2000. O volume 
do gravador deve estar entre 5 e 7. 


Verifique se os EARs do gravador e do 
TK-2000 estão conectados, pressione 
a tecla PLAY do gravador e a tecla 
RETURNdo TK-2000. 

Quando o programa começar a 
rodar aparecerá no final da tela: 

ESTQ2E00 WAIT 

Depois de aproximadamente 70 
segundos o programa está carregado 
e começa a rodar. A figura 1 mostra 
como a tela se apresenta. Digite a data 
da operação e pressione a tecla RE- 
TURN e a tela se apresentará confor¬ 
me a figura 2. 

O Arquivo 

Como se pode observar no menu 
da figura 2, o programa possui várias 
funções que permitem a manipulação 
dos itens existentes no arquivo. 

Um arquivo pode conter no máxi¬ 
mo 850 itens que serão controlados 
pelo programa. 

Um item é composto de vários 
campos cada um com uma função es¬ 
pecífica. São eles: 

a) código do item: é um campo que 
contém o código referente a cada item 
afim de se manter uma organização 
no arquivo. É um campo alfanumérico 
com dez posições. 

b) descrição: este campo contém 
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uma descrição de material em estoque. 
É um campo alfanumérico com 20 po¬ 
sições. 

c) atributo: este campo é definido pa¬ 
ra conter informações adicionais co¬ 
mo, por exemplo, código do fornece¬ 
dor, unidade de medida, etc. É um 
campo alfanumérico com sete posi¬ 
ções. 

d) preço de venda: este campo con¬ 
tém o preço de venda do produto em 
estoque. É um campo numérico inteiro 
com oito posições. 

e) estoque mínimo: este campo con¬ 
tém a quantidade mínima em estoque. 
É um campo numérico inteiro com 
quatro posições. 

f) saldo em estoque: este campo 
contém o saldo atual em estoque. É 
um campo numérico inteiro com seis 
posições. 

g) valor em estoque: este campo 
contém o valor total da mercadoria 
em estoque. É um campo numérico 
inteiro com oito posições. 

h) preço médio: este campo é calcu¬ 
lado pelo programa (valor em estoque 
■+■ saldo em estoque = preço médio). 
É um campo numérico decimal, com 
oito posições inteiras e duas decimais. 

As figuras 3 a 10 ilustram algu¬ 
mas telas que podem ser obtidas com 
o uso deste programa. 

A figura 3 ilustra uma tela de in¬ 
clusão de um item preenchido. Todos 
os campos devem ser digitados pelo 
usuário. 

A figura 4 mostra como a tela se 
apresenta ao escolher a opção 8 de 
alteração. Nesta opção, deve-se digitar 
o código do item a ser alterado, que 
os outros campos serão apresentados 
na tela se o código do item digitado 
existir no arquivo. 

A figura 5 é um exemplo de como 
a tela se apresenta ao escolher a opção 
9 de exclusão. Deve-se digitar o código 
do item a ser excluído e digitar S para 
confirmar a exclusão, ou N para que 
este item não seja excluído do arquivo. 

A figura 6 mostra uma tela preen¬ 
chida ao escolher a opção 1 para a 
entrada de mercadorias. Todos os 
campos devem ser preenchidos pelo 
usuário. 

A figura 7 mostra como a tela se 
apresenta numa operação de saída 
(opção 2). Deve-se digitar o código do 
item, o número do documento e a 
quantidade. Os campos do preço e do 
total são preenchidos pelo programa. 
Essas duas opções permitem a movi¬ 
mentação de itens cadastrados no es¬ 
toque. 


MUL TIE ST OQUE (VI.2) 
ITENS : U 


ARQUIVO : 


DA I h s 


(CJ-1VÜ3 - MULTISOFT lNFORfiAflCA LTDA. 

Figura 1 — Inicialização de um arquivo 


MUL1IESTOQUE * VI 
11ENS ! U 

.2) 02/05/1984 

ARQUIVO : 

«M0V1MEN í ACAO 

1.ENTRADAS 

2.SAIDhS 

*RELA í OkÍOS 

3. CÔNSUL IA A ITEM 

4. LISTA DE.PREÇOS 

5. P0SICA0 DE LS TOQUE 

6.SOMA IORIAS 

*MANUTENCAO 

7.INCLUSÃO 

8. ALTERACAO 

9. EXCLUSÃO 

»UíILÍÍMklOS 

LO. OhAVAL AO 
lí .LEIIURA 

Í2.RL1NIC1ALíZACAO 

ÍÜ.CONF1ÜURACA0 

SELECIONE-— > 

(O-i 783 - MULTISOFT INFORMÁTICA LTDA. 

Figura 2 — Menu 


MULTIESTOQUE <VI .2 t 

02/05/1984 

ITENS * 0 

ARQUIVO t 

INCLUSÃO 

CODIGO ITEM 

> ALOOO 

DESCRICAO 

s TIJOLO COMUM 

PRECO DE VENDA 

: • 15000 

ESTOQUE MÍNIMO 

: 100 

DADOS OK <S/N)? 


<0-1983 - MULTISOFT INFORMÁTICA LTDA. 

Figura 3 — Inclusão 



MULT1EST0QUE<V1.2) . Ü2/05/Í984 

lltNS * 0 ARQUIVO i_ 

AL TERACAO 

CoDIÜO 11 EM * AL000 
DESCRICAO í TIJOLO LOMUH 

PRECO DE VENDA t 15000 
ESTOQUE MÍNIMO : 100 


DADOS 0K<S/N)7 

<0-1983 - MULTISOFT INFORMÁTICA LTDA. 

Figura 4 — Alteração 


MUI 1 IES10UUL<V1 .o 
lILNií 5 

0..VU5 i 984 

MÍeiUlVO s 

tNTfcADftS 

CODÍüO J. Tfc.il 

: ALUUU 

DLSCkLLMO 

9 TIJOLO LoMUh 

NUM. DDL 10. 

: 12U1/ íUi. 

QUANIIDADE 

: i5U 

valor 

: iSUUUO 

OP ER ACAO 

: J 

DADOS OK < S/N > 

? 

<0-1983 MULTISOFT INF oR MA TI CA LIDA. 

Figura 6 — Entrada de item 


MULTIESTOQUE <Vi.2) 

I íENS * 5 

02/05/1984 

ARQUIVO ■ 

EXCLUSÃO 

CODIOO ITEM « 

ALOOO 

DESCRICAO 1 

TIJOLO COMUM 

PRECO DE VENDA s 

15000 

ESTOQUE MÍNIMO i 

100 

CONFIRMA <S/N)? 


<0-1983 - MULTISOFT 

INFORMÁTICA L íDA. 

Figura 5 — Exclusão 



MUL riESIOUUE<Vi. 
ITENS : 5 

,2) U2/U5/1VU4 

ARQUIVO : 


SAÍDAS 

CODIGO ITEM 

s ALUUO 

DESCRICAO 

: TIJOLO COMUM 

NUM. D0C10 

s 1201/201 

QUANTIDADE 

: 5 

VALOR 

: 5000 

OPERACAO. 

: 2 

DADOS OMS/N)? 


(0-1983 MULTISOFT INFORMA UCA L fD. 

Figura 7 — Saída de item 


MUL1IES TOQUE(VI.2) 
1ÍENS i 5 

hRQUIMO 

02/05/1784 

: 

LIS 1A DE PREÇOS 


CODIUO II EM 

: ALOOO 


DESCRICAO 

: TIJOLO 

COMUM 

PRELO DE VENDh 

s 15000 


< REIURN ) MENU 

< ESPAÇO 

> FR0X1M0 

<0- iVtíJ MUL1ISoF1 

INF ORMATICA LfD. 

Figura 9 — Lista de preços 



MUL T1L ST OQUE < V1.2 ) 
ITENS : 5 

02/ 05 1 vtí 

ARQUIVO s 

CONaUL Th 

A ITEM 

CODIGO ITEM í 

: ALÜÜU 

DESCRICAO : 

: TIJOLO COMUM 

AIRíBUTO i 

iíILHhR 

PRECO VENDA : 

! 15ÜU0 

ESI OQUE MIN. s 

1UU 

SALDO EolOQ. : 

145 

VALOR ESTUO. : 

145UUU 

PRECO MEDIO : 

1Ü0Ü,UU 

< REIURN ) MENU < 

ESF hCO FR 0X1 MO • 

<0-1983 MULTISOF 1 INFoRMhTICh L 1 D. 

Figura 8 — Consulta a itens 


MUL1JESIOQUEíVi.2) 
ITENS s 5 

02/05/1984 

ARQUIVO : 

POSILAO 

ESTOQUE 

CODIGO ITEM 

: ALUUÜ 

DESCRICAO 

: TIJOLO COMUM 

ATRIBUTO 

s MILHAR 

FRECO MEDIO 

: 1UU0,00 

ESI OQUE MIN. 

: 1ÜU 

SALDO ESTOQ. 

: 145 

VALOR ESTOU. 

s 145UÜU 

< REIURN ) MENU 

< ESPhCO > F*F<OXlMo 

< O - i > 83 MUL1I SOF 1 

INF ORMAT LLA LTD. 

Figura 10 — Posição do estoque 
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Figura 11 — Relatório de Inclusão 
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Figura 12 — Relatório de Alteração 
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A figura 8 é um exemplo de como 
a tela se apresenta, escolhendo-se a 
opção 3 para a consulta a itens e digi¬ 
tando-se o código do item. Os outros 
campos são fornecidos pelo programa. 
Esta opção fornece os dados do item 
desejado. 

A figura 9 é um exemplo de como 
a tela se apresenta ao escolher a opção 
4 de lista de preços. É um relatório 
que pode listar os dados de todo o ar¬ 
quivo ou parte dele, podendo ser utili¬ 
zado como um catálogo de preços para 
os vendedores. Se a impressora esti¬ 
ver OFF-LINE a lista de preços será 
apresentada na tela. Caso a impressora 
esteja em ON-LINE a lista de preços 
será apresentada na impressora como 
veremos adiante na figura 17. 

A figura 10 é um exemplo de co¬ 
mo a tela se apresenta ao escolher a 
opção 5 de posição do estoque. 

As figuras 11 a 17 ilustram alguns 
relatórios que podem ser obtidos com 
o uso do programa Multiestoque se a 


impressora estiver em ON-LINE. 

A figura 11 mostra como se apre¬ 
senta o relatório de inclusão (opção 7). 

A figura 12 mostra como se apre¬ 
senta um relatório de alteração (opção 

8) após preencher as fichas contendo 
os dados com as alterações. 

A figura 13 mostra como se apre¬ 
senta um relatório de exclusão (opção 

9) após preencher as fichas dos itens 
a serem excluídos. 

A figura 14 mostra como se apre¬ 
senta um relatório de entrada (opção 
1) ao preencher as fichas com os dados 
de entrada do produto. 

A figura 15 mostra como se apre¬ 
senta um relatório de saída de merca¬ 
dorias (opção 2). 

A figura 16 mostra como se apre¬ 
senta um relatório de posição de esto¬ 
que de todos os itens contidos no esto¬ 
que (opção 5). Os itens que estão abai¬ 
xo do estoque mínimo são destacados 
com um asterisco. 

A figura 17 mostra como se apre¬ 
senta um relatório de lista de preços 


de todos os itens contidos no arquivo 
(opção 4). 

Como você pode notar, o Multi¬ 
estoque é um programa complexo, po¬ 
rém de fácil manuseio, que visa um 
controle eficaz do estoque de uma em¬ 
presa, oferecendo várias operações pa¬ 
ra a manipulação dos itens contidos 
no arquivo como por exemplo a alte¬ 
ração de um item ou a sua exclusão, 
movimentação, emissão de relatórios 
(de lista de preços, posição do estoque 
e dos itens abaixo do estoque), grava¬ 
ção de um arquivo em fita cassete e a 
leitura de um arquivo que foi gravado 
numa fita cassete. 
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NUMEROS COMPLEXOS 



Este programa tem por finalidade 
resolver um sistema de n equações a 
n incógnitas, onde podemos trabalhar 
não apenas com números reais, mas 
também com números complexos na 
forma polar. 

A principal utilização deste pro¬ 
grama está na área eletro-eletrônica 
onde os números complexos são em¬ 
pregados largamente na representação 
de circuitos elétricos, que envolvam 
capacitâncias e indutâncias. Existem 
diversas maneiras para resolvermos 
tais circuitos, mas em todas elas pode¬ 
remos construir um sistema matricial 
de equações em que as incógnitas são 
correntes de malhas ou tensões 
nodais. Desde simples circuitos eletrô¬ 
nicos até estudos de load-flow (fluxo 
de carga) em sistemas de distribuição 
de energia, este programa pode ser 
convenientemente utilizado. 

Um número complexo é a repre¬ 
sentação de qm número real e um nú¬ 
mero imaginário e pode ser escrito de 
duas maneiras: 

— forma retangular: a + jb 

onde a representa a parte real e b re¬ 
presenta a parte imaginária 

— forma polar: 

Va 2 + b 2 ' I arct 9 b/a 

módulo I fase 

Devido as características de reso¬ 


lução do programa, utilizaremos a for¬ 
ma polar e, para termos um número 
real puro, basta fazermos a parte ima¬ 
ginária igual a zero (b = 0) o que repre¬ 
senta fase nula. 

Um sistema matricial de equações 
pode ser escrito da maneira que mos¬ 
tramos na figura 1. 

O método utilizado para a resolu¬ 
ção do sistema é o método de elimi¬ 
nação de GAUSS ou de diagoniza- 
ção, que consta do seguinte: 

1? passo — dividir a primeira linha por 
A(1,1), a segunda linha por A(2,1) e a 
n-ésima linha por A(l,1), de forma a 
obter o que mostramos na figura 2. 

2?passo — subtrair a linha 2 da linha 1, 
a linha 3 da linha 1 e assim sucessiva¬ 
mente até subtrair a n-ésima linha da li¬ 
nha 1. Desta forma teremos o que 
mostramos na figura 3. 

3? passo — dividir a linha 2 por A" 
(2,2), a linha 3 por A"(3,2) e assim até 
dividir a n-ésima linha por A"(l,2). 
Após isso, subtrair a linha 3, a linha 2, a 
linha 4 da linha 2 e sucessivamente até 
a n-ésima linha da linha 2, conforme o 
que aparece na figura 4. 

Podemos notar que, seguindo es¬ 
ta seqüência de divisões e subtrações, 
vamos diagonalizar a matriz para obter 
o que mostramos na figura 5. 


A primeira incógnita que tiraremos 
será V(l) e, por substituição, as de¬ 
mais. 

Para diferenciarmos a introdução 
dados em módulo e fase, utilizamos 
o seguinte processo: 

A( 7, IJ), V( 7,1) e P (7,1) onde o número 
1 representa o módulo , e A(2,I,J), 
V(2,1) e Pl Z D onde o número 2 repre¬ 
senta a fase. 

O programa é dividido em sub-ro- 
tinas da seguinte maneira: 

Unhas 990 a 1600: explicações do pro¬ 
grama, definição de variáveis e matri¬ 
zes e introdução de dados. 

Unhas 1640 a 1690: transformação do 
ângulo de fase introduzido em graus 
para radianos. 

Unhas 1700 a 2060: faz a subtração en¬ 
tre dois números complexos transfor¬ 
mando-os primeiramente para a forma 
retangular. 

Unhas 2070 a 2340: calcula os valores 
das incógnitas. 

Unhas 2360 a 2410: apresentação dos 
resultados. 

Unhas 2490 a 2580: faz a divisão entre 
dois números complexos. 
linhas 2600 a 2950: bloco de correção 
de valores se forem introduzidas erro¬ 
neamente. 

Unhas 2990 a 3030: bloco auxiliar de 
transformação polar/retangular. 

Unhas 3200 a 3210: gravação do pro¬ 
grama. 
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6809 

6502 

8080/8085 
8086/8088 
6800/68000 
Z-80 / Z-8000 
APPLE 
ATARI 
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TRS-80 

SINCLAIR 
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A(1,1) 

A( 1,2). 

. A(1,J) -] 


r vd) 


Pd) *1 

A(2,1) 

A(2,2). 

. A(2,J) 


V(2) 


P(2) 

A(3,1) 

A(3,2). 

. A(3,J) 


V(3) 


P(3) 

• 

• 

• 

y 

• 

= 

• 

• 

• 

• 

A 

• 


• 

• 

• 

• 


• 


• 

- A(l,1) 

A(l,2) . 

. A(I,J) _ 


- V(l) 


P(l) . 


onde V(1) a V(l) representam as incógnitas do sistema. 


Figura 1 




Figura 4 


1 A'( 1,2) 

0 1 


0 0 


A'(1,J) 
A " ' (2, J) 


V(1) 

V(2) 


v(l) 


P'(1) 

P "' (2) 

• 

P'(l) 


Figura 5 


Para ficar mais claro, vamos de- circuito elétrico, resolvendo-o por cor- 
senvolver um exemplo com o seguinte rente de malha! 
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Dados: 




0 programa é auto-explicativo e o 
leitor não terá dificuldades na entrada 
de dados. 

Experimente introduzir os dados 
do exemplo: 




990 5-_OU 

1300 A EH E5T E PROGRhMh PQI ELABO 
R ROO POR JOSE RNTONIO - 

NOU783 

1310 PRINT "E5TE PRGGRRMm RESOLU 
£ UH 525TEMRD2 EOURCOE5 COM NUME 
ROS COMPLE-XÜS . NR SEGUINTE FORH 
R MRTRICIfiL • *’ 

10P0 PRINT 
1330 PRINT 

u (i > 8 1 p (i) 

134-0 PRINT 

II / 

1050 PRINT 

/ S -I / 

1060 PRINT 

✓ I I / 

1073 PRINT 
U ( I) I | P í I) 

1080 PRINT 
1390 PRINT U R5 INCÓGNITAS SflO U 

(1)-U í I) •• 

1100 PRINT 

1110 PRINT ,, OBRIGRTORIAHENT£ Aí! 
, 1 > < > 0 ’* 

1120 PR INT 

1130 PRINT "05 DADOS DE ENTRADA 

5AO: - 

114-0 PRINT 

II5 Q PRIN T “A(0,1,0) E PC0,I) PA 
RA EBFZmSS, E" 

1160 PRINT 

1270 PRINT -R<g.I,U) E Píg,I> P/ 
íi ^a^ (GRAUS) •’ 

1180 PRINT AT 21,8; "DIGITE O NO. 

DE INCÓGNITAS (I)" 

1190 LET Ksl 
1200 LET C=2 
1210 INPUT N 

1220 PRINT AT 21,29; *' = ’* ; N 
1230 PAUSE 120 
124-0 CL5 


;|R (1,1)-A í 1 ,0)88 

- / 18 

- ' II 

- 7 81 

A (I, 1)-A t1,0)8! 


1250 

FAST 

1260 

DIM 

A(1,N,N) 

1270 

DIM 

B(1,N,N) 

1280 

DIM 

A(2,N,N) 

1290 

DIM 

B(2,N,N) 

1300 

DIM 

M (N) 

1310 

DIM 

F (N) 

1320 

DIM 

P C 1 , N) 

1330 

DIM 

P ( 2 , N ) 

1340 

DIM 

U ( 1, N ) 

135© 

DIM 

U (2 , N) 

1360 

FOR 

1 = 1 TO N 

1370 

FOR 

0=1 TO N 

138© 

PRINT AT 21,0; 

O; -) 

ss ** ; 


1390 

INPUT A(1,I,U> 

1400 

PRINT A(1,1,0) 

1410 

SCROLL 

1420 

PRINT "A(2,I 


14.30 INPUT A (2,1,0) 

14.4-0 PRINT A (2,1,0) 

14.50 SCROLL 
14-60 NEXT O 

14.70 PRINT m, P Cl, I; '•) a 
14-80 INPUT P(1,I) 

14-90 PRINT PC1,I) 

1500 SCROLL 

1510 PRINT ,, P(2/*;I; *') s 
1520 INPUT Pl2,I) 

1530 PRINT P C2, I) 

154-0 SCROLL 
1550 NEXT I 
1560 SCROLL 

1570 PRINT AT 21,0;-ALGUM UAL GR 
ERRADO (S sN) 

1580 INPUT L$ 

1590 IF L $ = ** S ** THEN GOTO UAL '*25 
98" 

1600 IF L$<>-N“ THEN GOTO UAL ”1 
578" 

1610 CLS 

1620 LET S = 1 

1630 GQ5UB UAL ••2490" 

1640 FOR 1=1 TO N 
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165© POR U = 1 TO N 

1660 LET B(2,I..J)=B(2,I,J)i(PI/l 

80) 

1670 NEXT U 

1680 LET P(2,I)^Pt2,Dí(PI/180) 

1690 NEXT X 

1700 POR I=C TO N 

171© POR U = 1 TO N 

172© IP Bíi,I^)=0 THEN GOTO URL 
*•3150** 

173© LET X=B ( 1., ^ vJ) *COS 6(2,1.^) 
~BÍ1.,K,Ü) ^COS B(2,K,J) 

174.0 LET V=B(Í,I, J) *SIN B(2,I ; J; 
-Bíl.K^Ü) *SIN B (2 . K.. U) 

175© LET =5QR (RBS X**2+ 

R3S Y**2) 

176© GOSUB URL M 2990 M 
177© Ir X=© OR Y=© THEN GOTO URL 
" 3©4 © " 

176© LET fi <2, X,Ujf =RTN (Y/X) 

179© XF X<© THEN LET R(2,I,J)=R\ 
2 . X .U5 +PX 
1300 NEXT J 

181© LET X=P(1,I) iCÜ5 PÍ2,I) -P (1 
,K) íCOS P (2 K ) 

1520 LET Y=P(1,X)f5IN P(2 / I)-PÍ1 
.K)íSIN PÍ2,K? 

ÍS3© LET P(I,X)=SGR CRBS X**2*R8 
S Y**2) 

1840 GOSUB URL "299©" 

185© IF X=© OR Y=© THEN GOTO URL 
"306©" 

186© LET P(2,I)rRTN (Y/X> 

187© XP X<0 THEN LET PÍ2 / I)=P(2, 
X> +PI 

IBS© NEXT X 

189© POR J=i TO K 

190© POR U = 1 TO N 

1910 LET RÍ1..K,J) =BÍ1,K,J) 

1920 LET R (2,K.. J) =B (2.. K,U) 

193© NEXT U 

1940 NEXT X 

1950 LET S=S -f 1 

196© GOSUB URL "2490" 


1970 POR 1=1 TO K 
1980 POR U = 1 TO N 
1990 LET B(1,K,J)=R(1,K,J) 

200© LET B (2^K^cJ) =R (2.,K,UÍ 

201© NEXT U 

2020 NEXT I 

2030 LET C=C+1 

2O40 LET K=K+1 

205© IP S=N THEN GOTO URL "2070" 
2060 GOTO URL "1700" 

2O70 LET 2=1 

2080 POR R=N TO 1 STEP -1 
2090 POR U=2 TO N 

210© IP B(1.Ü.Z)=0 THEN GOTO URL 
"2960" 

2110 IP R+U-1>N THEN PRINT "INUE 
RTER RS EOURCOES DE ENTRRDR DE H 
OD O R TER RC1..1) < >0’*,, /‘DIGITE & 
2EB NGURMENTE" 

212G LET M(U) =B(1,R,R+U-1) ^(1 ; R 
+ U-1) 

2130 LET FlU) =:B(2,R / R^U-l)+Ví2,R 
+ U-1) 

2140 NEXT U 

2150 LET X=0 

2160 LET Y=0 

2170 POR U=2 TO N 

2180 LET X=H(U)fCCS FÍW3+X 

2190 LET YsH(U)*SIN F CU) +Y 

220© NEXT W 

221© LET 0=SQR (RBS X**2+R6S Yí-f 
2) 

2220 GOSUB URL "2990" 

223© XF X=© OR Y=© THEN GOTO URL 
"2260" 

224© LET F=RTN ÍY/X) 

225© XP X<© THEN LET P=F+PI 
226© LET X=P(1,R)íCOS P(2,R)-©*C 
OS F 

227© LET Y=Píl,R)*SIN P(2.,R)-©*S 
IN P 

223© LET U(1,R)=SGR (RBS X**2+flB 
S Y**2) 



COMO COLABORAR 
COM MICROHOBBY 


A Revista MICROHOBBY foi criada 
para servir de intercâmbio entre os leito¬ 
res que participam do mágico mundo da 
computação. 

A característica realmente inovadora 
do computador pessoal, está em transfor¬ 
mar cada consumidor num criador. Apro¬ 
veite sua criatividade e envie suas colabo¬ 
rações recebendo remuneração a título de 
DIREITO AUTORAL. 

A maneira ideal de nos enviar o mate¬ 
rial a ser publicado obedece às seguintes 
normas: 


1. Nunca esqueça de colocar o nome 
completo, telefone, endereço e número 
de sua assinatura em todo material envia¬ 
da a nós, sejam listagens de impressora, fi¬ 
tas, envelope, carta ou qualquer outro 
material. 

2. Envie a listagem de programa datilo¬ 
grafada ou, melhor ainda, tirada na im¬ 
pressora do computador. 

3. Coloque sempre uma linha REM com 
o nome do autor e o título do programa. 

4. Envie uma fita com o programa grava¬ 
do algumas vezes (se possível em gravado¬ 
res diferentes). 

5. Na fita, gravar com microfone (em viva 
voz), algumas instruções úteis: 

nome completo e endereço do remetente. 

6 . Quando o programa for adaptado e/ou 
traduzido de outra revista, citar a fonte 
(autor original, data de publicação, nome 
da revista e todos os detalhes que houver 
referente à publicação). 


7. Anexar ao material, urna carta autori¬ 
zando a publicação por parte da revista e 
assumindo a responsabilidade pela autoria 
do material e/ou adaptações. Nesta carta, 
para agilizar a remuneração, podem cons¬ 
tar os dados da conta corrente onde da¬ 
remos o depósito correspondente aos di¬ 
reitos autorais. 

8. 0 material não utilizado não será de¬ 
volvido, ficando a critério da redação a 
decisão final sobre sua publicação. 

9. 0 material deve ser enviado para: 


MICROMEGA PUBLICAÇÕES E 
MATERIAL DIDÁTICO 
SEÇÃO PROGRAMAS DO LEITOR 
Cx. Postal 54096 
CEP 01296 


O 
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229© GG5UB URL. "299©" 

2300 IP X=0 OR Y=0 THEN GOTO URL. 
"3060" 


UÍ2,R} = RTN < Y/X) 

X<0 THEN LET U(2,R)=U(2, 


231© LET 
232© IF 
R) +PI 

2330 LET Z=Z+1 
£34.0 NEXT R 
2350 SLOU 
S350 PRINT " 

2370 PÒR íil TO N 
238© PRINT “Uíl/*; I; **) 

) 


UC1, J 


2390 PRINT "U(2.'*;l;") = ";U(2,I 

5*180/PI 

24.00 PRINT 

24-1© NEXT I 

24-20 PRND USR 3292 

2430 LET R(1,I,ü)=0 

244-3 LET RÍ2..I, J) =© 

24.50 GOTO URL " 1790 " 

24-60 LET P í I . I) =© 

247© LET PÍ2‘,I)=0 
248© GOTO URL , T37Ô M 
2450 FOR J=S TO N 
250© POR Ü=1 TO N 

2510 I F RÍI,,I,S) =0 THEN GOTO URL 
'■ 3100 ’' 


2*520 LET =R t 1 , I, U) /ft (1,1 

,3) 

2530 LET =R(2,I,J)~R(2,I 

, 3 ) 

254© NEXT U 

2550 LET Ptl/I)=P(1.I)/R( 1,I,S) 
256© LET P(2,D=P(2,I)-fi(2 l I í S) 
257© NEXT I 
258© RETURN 


259© 

CL 5 




260© 

PRINT 

4 % 

áfcfi • ** 


251© 

PRINT 




262© 

PRINT 

"R CX,L,C) 

= 7" 


263© 

PRINT 




264© 

PRINT 

"PÍX.O = 7" 


265© 

PRINT 




265© 

PRINT 

"DIGITE : 

SBB PftRfl 

MOD 

ULO; ‘ 





2573 

PRINT 

•• 

BEB PflRfl 

FRS 

2580 

PRINT 

•• 

fl NO. DO 

L IN 

MB E* 




269© 

PRINT 

*• 

a NO. Dfl 

COL 

UNR „ * 
2700 

PRINT 




2710 

PRINT 

"DESEUR CORRIGIR PCX, 

L ,C) 

OU PíXaC) 7 (R/P)" 


272© 

PRINT 




273© 

INPUT 




2740 

60" 

IP L$ 

="P" THEN 

GOTO URL 

"23 

275© 

PRINT 

"R ("; 



276© 

INPUT 

X 



277© 

PRINT 

x;", "j 



2 730 

INPUT 

l 



2790 

PRINT 

i; '•, 



23©© 

INPUT 

u 



281© 

PRINT 

u; ** y = **; 



282© 

INPUT 

u 



283© 

PRINT 

u 



234© 

LET R(X, I, J) =U 



285© 

GOTO URL "294©“ 



286© 

PRINT 

"P t "; 



2870 

INPUT 

X 



238© 

PRINT 

x; 



239© 

INPUT 

I 



290© 

PRINT 

l;") = 



2910 

INPUT 

U 



2920 

PRINT 

U 



2930 

LET PÍX,D=U 




294© PRINT RT 21,0."HfilS RLGUMR 
CORRECRO {5/N) " 

2953 GOTO URL "1SS©" 

2960 IF U<Z THEN GOTO URL 
2965 LET H U4) =© 

2970 LET P CU) = © 


2980 GOTO URL ,, 214© M 

299© IP X>=© R ND Y=0 THEN LET F = 

3 

330© IP X<© RNO Y=0 THEN LET F=P 
I 

3010 IF X=0 RND Y>© THEN LET F=P 

I /2 

3320 IP X=0 RHD V <© THEN LET F = -~ 
PI/2 

3030 RETURN 
304© LET Rt2,X,Ü)=F 
335© GOTO URL "IS©©* 1 
306© LET P(2,I)=F 
307© GOTO URL “1380" 

338© LET V i 2,R J =F 
339© GOTO URL ,, 2330 ,, 

310© POR 0=1 TO N 
3110 LET 

3120 LET B(2,I,J)=R(2.I,J) 

3130 NEXT ü 

314© GOTO URL "257©" 

315© POR Ü=1 TO N 

3160 LET R (1.. I , ü) =6 < 1 , I , <J) 

3170 LET R(2,I.J)=B(2,I,J) 

3180 NEXT O 

3190 GOTO URL "188©" 

320O SRUE "RESOLUCfiO HRTRICIRL C 
nPLEXg" 

3210 GOTO 99© 


LANÇAMENTO 



Terminal com 
teclado profissional 
tecnologia ITT 
compatível com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
táctil com todas as 
funções gravadas na 
própria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligações instaladas. 
Acompanha manual para montagem com opções 
de fixação da fonte internamente ou usando 
externamente. 


Saídas: Expansão memória/impressora 
Fonte externa ou interna 
Rede 

Gravação EAR/MIC 
Chave Liga/Desliga 
Chave 110/220 VaC 
Joystick 



INTER COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda, 805 - Diadema (Centro) 
fone: 456.3011 


Os pedidos registrados no mès de abrü , terão preço de 
lançamento de Cr$ 99 500,00. 

Linha de Fabricação: 

Chaves comutadoras 

Teclas e teclados semi profissionais 

Teclas e teclados profissionais 
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SIMÉ 



K 


O 


Renato da Silva Oliveira 


SiméTriKo é um programa que, 
apesar de ocupar menos de 2 kBytes 
de RAM possui uma "capacidade cria¬ 
dora" quase que ilimitada. Ele gera 
aleatoriamente belíssimas figuras den¬ 
tro de um quadrado de 21 linhas por 
21 colunas no centro da tela. Essas fi¬ 
guras modificam-se constantemente e 
o usuário pode interferir e participar 
na confecção delas durante a execu¬ 
ção do programa através de sete te¬ 
clas: Z, V, I. W, D, F e P. 

Digitando a tecla Z, uma cópia da 
tela é produzida na impressora. A te¬ 
cla V, se pressionada, limpa totalmente 
o vídeo e a tecla I produz a sua "in¬ 
versão" (a figura fica em negativo). 
Pressionando-se a tecla W os pontos 
passam a ser "unplotados" e dessa 
forma, se o vídeo não está "inverti¬ 
do", a figura é lenta e aleatoriamente 
apagada. Pode-se, ainda, escolher o 
modo de operação do micro através 
das teclas D (para SLOW) e F (para 
FAST) e, finalmente, mantendo-se 
pressionada a tecla P a figura na tela 
permanece inalterada. Se você não 
consegue lembrar a função de cada te¬ 
cla, rode o programa e use-as! 

Tome muito cuidado ao digitar as 
linhas de 0 a 4. Para produzir a linha 
0, digite: 

POKE 16510,0 


Na digitação da linha 1, para in¬ 
troduzir RETURIM, POKE e LIST, uti- 
lize-se da palavra-chave THEN e de¬ 
pois apague-a movendo o cursor para 
a esquerda e usando RUBOUT. (Se 
você está com dúvidas consulte a se¬ 
ção Desgrilando de Microhobby núme¬ 
ro 5). 

Após o programa ser rodado, a li¬ 
nha 1 deve modificar-se um pouco (al¬ 
guns de seus caracteres não aparece¬ 
rão na listagem). A partir de então, se 
você quiser, poderá apagar as linhas 
2, 3e4. 

Adiante encontra-se a listagem do 
programa (figura 1) e uma seqüência 
da evolução de uma figura na tela (fi¬ 
gura 2). 

Para salvar o programa em fita, 
após digitá-lo completamente, coman¬ 
de GOTO 370. 


FC^-vEM 

1 REM 


••simei3r3io" 


RETURN ?C — L 


EN 077*4 POKE ( LIST TflN 

2 

POKE 16539y126 


3 

POKE 16541,116 


4 

POKE 16546,119 


IO 

LET C =21 


20 

LET D-0 


30 

LET E-D 


40 

FOR G=E TO C*(1+3*RND) 

50 

LET H=9fRND 


60 

LET D=D+H*RND 


70 

LET E=E+H*RND 


80 

LET O-D AND D<=C 


90 

LET EsE AND E <=C 


100 

LET I -C + 10 


110 

IF INKEY $ = " U ** THEN 

GOTO 210 

120 

PLOT I+D,C+E 


130 

PLOT I-fDyC-E 


140 

PLGT Z-0,C+E 


150 

PLOT I-D,C —E 


160 

PLOT I+EyC+D 


170 

PLOT ItK,C-D 


150 

PLOT I-E,C +D 


190 

PLOT I-EyC-D 


20 0 

GOTO 290 


210 

UNPLOT I+DyC+E 


220 

UNPLOT I+D,C-E 


230 

UNPLOT I-D,C+E 


240 

UNPLOT I-DyC-E 


250 

UNPLOT I+E,C+D 


260 

UNPLOT I+EyC-D 


270 

UNPLOT I-E,C+D 


280 

UNPL.OT I-EyC-D 


290 

IF INKEY $ = '* Z ” THEN 

COPY 

300 

IF INKEY$»"U" THEN 

CLS 

310 

IF 1NKEY$="F" THEN 

FAST 

320 

IF INKEY £ = "D" THEN 

SuOU 

330 

Ir INKEY $ —I ** THEN 

LET L=US 

R 165 

;3i 


340 

IF INKEY $ = "P" THEN 

GOTO 290 

350 

NEXT G 



360 GOTO 10 

370 SAUE “SIMEORnaO** 

300 PRINT RT 0,10,. 


S IMEfiA JQO " 


300 PRINT “D - SLOU FAST 

*• y y “ Z-COPIR” y y "U-UNPLOT" y y "P-INT 
ERROMPE" , , "Li-LIrtPfl A TELA" y , ** I-1 
N'JERTE O UIOEO" 

400 PAUSE 240 
410 CLS 
420 GOTO 1 

. fig. 1 , 
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ACABA DE SAIR 

NOVO PACOTE 



Gisinons 

;ümtow-Ão, 

(0ÊS0''^tíÊ ' 


Guia de Linguagem de 
COMPUTADORES 

COM Wqow/UBO pi MUWMCwvn 

\HãryLHelmàjr\ 


EDITORA CAMPUS 


Af Hcação dt í ónipuhidorcs 

. ; r «eW* , : v\ 


CCMftffAOCWES PARA USUÁRIOS 

JwyttCatihnmfaM 

Programas c Programação 
dt> Computadores 


tleray C Lixas Jr. 

COMO LIDAR COM O 

COMPUTADOR 


EDITORA CAMPUS 


^BaÊc 

qSlCCL 


Jorge «jaCunha Pereira Fiho 



Mas deste você vai gostar... 

Porque ele foi especialmente preparado para você que já descobriu que o computador é, 
hoje em dia, a melhor maneira de economizar tempo, dinheiro e trabalho ou, simplesmente, 
divertir-se. 

Examine os títulos abaixo. Eles cobrem os mais variados aspectos, respondendo as perguntas 
comumente feitas por aqueles envolvidos no processamento de informações. 

Agora faça o seu pedido. Afinal, não é todos os dias que lhe oferecem um pacote assim. 


r C EDITORA CAMPUS ) 

Assinale as publicações que deseja receber: 

I D Pereira. Basic Básico. 4. ed. Cr$ 11.300,00 

D Pereira. Basic para Micros Pessoais. 2. ed. Cr$ 10.300,00 

I E Pereira. Aplicação de Computadores. CrS 15.100,00 

D Pereira. Proqramas e Programação de Computadores. CrS 15.100,00 

I O Sawusch. 1001 Aplicações para o Seu Computador Pessoal. 

Cr$ 14.150,00 

O Waite. O Seu Computador Pessoal. Cr$ 10.950,00 

I O Moreira. Criança também faz Programas. 2. ed. Cr$ 7.700,00 
O Moreira. Brincando com o Computador. Cr$ 7.250,00 
O Lucas. Como lidar com o Computador CrS 9.100,00 
O Tigre. Computadores Brasileiros; Indústria, Tecnologia e Depen¬ 
dência. Cr$ 11.300,00 

C Eaton. Tecnologia da Informação; um Guia para Empresas, Geren¬ 
tes e Administradores. Cr$ 19.200,00 
D Fernandez. Usando CP/M; um Guia em Estudo Programado. 

CrS 12.500,00 

D Simons. Introdução ao Processamento de Textos. Cr$ 11.950,00 
D Helms. Guia de Linguagens de Computadores. Cr$ 7.900,00 
CJ Barden Microcomputadores para Aplicações Comerciais. CrS 14.800,00 


)! 


Assinale aqui a sua opção de compra: 

□ Cheque Nominal à Editora Campus Ltda. 

N9.Banco. 

(o porte é por nossa conta e sua encomenda chega mais 
rápido) 

□ Reembolso Postal 

Envie o seu cupom ainda hoje para: 

Editora Campus Ltda. 

Caixa Postal 54096 - CEP 01296 - São Paulo - SP 

Nome. 

Endereço. 

CEP .Cidade.Estado. 

Importante: Preços válidos até 30/08/84 


1 

I 

f 

I 

I 

I 

I 

I 

I 
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A Microsoft tem 120 programas em fitas e disquetes à sua disposição 
_ _São sistemas aplicativos para acompanhar e agilizar os negócios 


de sua empresa. E também jogos eletrônicos para você e sua família 
se divertirem muito. Todos especiais para TK-83, TK-85; 
TK-2000, AppIeHe compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: - 

""Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000- 
~S. Paulo-SP). Você encontrará os melhores programas da sua vida.. 













TK83 


EM 


I fvcompt 


de 
software 
V 




MH 


IZZ 


muito din 


/VIlCRODIGrML 




csssrss. 

SSo Paulo ■ SP Telex n“. (011) 37008 MIDC BR 


_ 


À venda nas boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines em ALAGOAS - Maceió, Palmeira dos índios, AMAZONAS - Manaus, BAHIA - Salvador, CEARÁ • Forta- 
leza, DISTRITO FEDERAL - Brasília, ESPÍRITO SANTO - Vitória, GOIÁS - Goiânia, MATO GROSSO • Cuiabá, MINAS GERAIS - Belo Horizonte, Divinópolis, Itajuba, Juiz de Fora, Poços de Caldas, São 
João Del Rei, Teófilo Otoni, Uberlândia, Uberaba, Viçosa, PARAÍBA ■ Campina Grande, PARÁ - Belém, PARANÁ - Curitiba, Londrina, Maringá, PERNAMBUCO - Recife, RIO DE JANEIRO - Campos, Ni¬ 
terói, Nova Friburgo, Petrópolis, Rezende, Rio de Janeiro, Volta Redonda, RIO GRANDE DO SUL - Bagé, Canoas, Caxias do Sul, Ijuí, Novo Hamburgo, Pelotas, Porto Alegre, SanfAnna do Livramen¬ 
to, Santiago, Santo Rosa, São Leopoldo, RIO GRANDE DO NORTE - Natal, RONDÔNIA - Porto Velho, SÃO PAULO - Araraquara, Assis, Avaré, Bauru, Birigui, Botucatu, Campinas, Catanduva, Franca, 
Guarulhos, Itu, Jacarei, Jaú, Limeira, Lins, Marilia, Mogi Guaçu, Mogi das Cruzes, Ourinhos, Piracicaba, Pirassununga, Promissão, Rio Claro, Ribeirão Preto, Santos, Santa Barb. d'Oeste, São Ber¬ 
nardo do Campo, São João da Boa Vista, São Sebs. da Grama, São Carlos, São José do Rio Preto, São José dos Campos, St° André, São Paulo, Sorocaba, Suzano, Taubaté, SANTA CATARINA - Blume¬ 
nau, Brusque, Florinópolis, Itajaí, Joinville, SERGIPE - Aracajú, Se você não encontrar este equipamento na sua cidade ligue para (011) 800 - 255.8583. 




O TK 2000 Color 
melhores micros têm 
Aceita diskette, im~~ 
interface), alta t 
podendo ser li 
ou P&B. Tem 6 


O TK 83 já ensinou mais de 2 milhões de pessoas. 

Ele é muito fácil de operar. Usa o Basic, e a memória chega 
ité 64 K bytes, e aceita monitor, impressora e joystick. 


programando, ou vencendo os muitos jogos disponíveis. O 
TK 83 nõo é só a melhor iniciação. Também é o mais divertida 


■ - 




















A MICROHOBBY é uma revista altamente didática, destinada a programadores de vários 
níveis, do principiante ao hobbista mais ousado, que se aventure a programar em linguagem 
de máquina. 

Receba em sua casa a revista que contém inúmeros programas, informações, dicas e tudo 
o que você precisa saber sobre microcomputadores e programação. 

MICROHOBBY a revista que põe você em dia com a informática! 


Assinando a revista MICROHOBBY, você recebe inteiramente grátis uma 
fita cassete contendo 2 jogos. 

1 - 0 pouso do Barão Vermelho e Pac-hobby (TK83/85) 

2 - Calendário perpétuo e Tatuzão (TK2000 e APPLE) 

Qual a marca do seu micro? I 1 





PEDIDO DE LIVROS E NÚMEROS ATRASADOS DA MICROHOBBY 

(Preencher os itens no verso e o cupom abaixo) 


Sim, desejo receber os itens assinalados no verso 



n 


TOTAL DO PEDIDO: Cr$ . 


Enviar cheque nominal cruzado ou vale postal 
à MICROMEGA P.M.D. Ltda. - Cx. Postal 54096 
CEP 01296 - São Paulo - SP 

Cheque n?_ __ 

Bco._ I_I Vale postal 


Estou ciente de que aguardarei em média 
30 dias para o recebimento dos produtos 
DATA_/_/_ 


assinatura 


r 















Não deixe de ler estes iivros. 


BASIC TK 

Um livro destinado a quem se interessa em aprender a linguagem 
do computador TK82, 83, 85 e compatíveis. Complementando os ma¬ 
nuais destes computadores, o livro BASIC TK é um auxiliar útil mesmo 
para os que já possuem alguns conhecimentos sobre sua máquina. 


Linguagem de máquina p/ o TK 

Programar em linguagem de máquina nos permite criar programas 
muito mais rápidos e versáteis que os programados em BASIC. O livro 
LINGUAGEM DE MÁQUINA PARA 0 TK ensina, passo a passo e de 
uma maneira muito leve os segredos desta arte, tornando-o capaz de 
elaborar jogos e aplicativos nesta modalidade de programação. 


Coleção de Programas Vol. I e II 

Programas de todas as modalidades e para todas as idades. E um 
livro ideal para você que gosta de programas "prontos para uso" para 
o seu computador. 


Curso de jogos p/ o TK 

Certamente os jogos de vídeo são a coqueluche do momento. Que 
tal você mesmo bolar seus jogos em seu TK ou compatível? Este livro lhe 
dá fundamentos para que você possa iniciar-se neste fascinante hobby. 


Para receber os livros, nf* atrasados da MICROHOBBYe fitas abaixo, 
basta assinar o item desejado, e preencher corretamente o cupom do 
verso. 


Linguagem de máquina p/ o TK 


Curso de jogos em Basic TK 


Coleção de programas Vol. I 


| Coleção de programas Vol. II 


Basic TK 


Fita c/ S. Paulo - (1K) e Mansão Maluca 


Fita cl Pulga (2K) e Simulador de Võo U6K) 


MICROHOBBY N 


Preços válidos até 31 /07/84 


mSESSmm 


CERTIFICADO ESPECIAL DE RESERVA 

VÁLIDO ATÉ 31/08/84 

Desejo assinar a revista MICROHOBBY (12 edições) 



ENDEREÇO 


N? 

ASS. 



□ 

□ 

□ 





Estou anexando a quantia de CrS 19.800,00 
para MICROMEGA P.M.D. Ltda., referente à 
venda de uma assinatura. 

Cheque M° data:_/_/_Banco_ 

| | cheque nominal [ | vale postal 


ASSINATURA 


ESTE CARTÃO NÃO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Válido somente se postado 
diretamente pelo assinante 


I 

























